


AS-1000 


o micro que cresce com você. - 


CARACTERÍSTICAS TÉCNICAS: 


e 16 K bytes de memória iniciais 

o Apr boa interna para 32 e 
48 K bytes 

e 8 K bytes de memória EPROM 

* Microprocessador Z-80A 

* Teclado de membrana com 
ação mecânica positiva 

º 40 teclas e 154 funções 

* Basic e linguagem de máquina 

* Video normal ou reverso 

º Saída para qualquer impressora 

* Manipula até quatro cassetes 
com geração de arquivo 

º Modem 

o Joystick 

o o ed File 

onte de alimentação 

“ embutida (110/220 volts) 

* Nível de leitura de gravação 
automático 


PERERE a O Microcomputador A$1000 

é uma ótima escolha para quem está 
iniciando na ciência da | computação. EN 
recursos de programação e sua concepção” 
modular, porém, permitem que ele N 
o acompanhe até as aplicações mais 
sofisticadas. 

O AS-1000 ja nasce com uma biblioteca de 
milhares de programas para jogos, 
administração doméstica, aplicações 
comerciais e profissionais. 

O AS$-1000 é fabricado com a qualidade 
ENGEBRAS e garantido por um ano. 

Entre na era da informática com a escolha 
certa. A$-1000, o seu micro pessoal. 


Escreva-nos, sua correspondência não ficará sem resposta. 


= ENGEBRAS 


ELETRÔNICA E INFORMATICA LTDA, 
Rua do Russel, 450 - 3º andar 

cep 22210 Rio de Janeiro - RJ 

Tel.: (021) 205-4898 
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1 PROGRAMAS QUE 
RACIOCINAM - 
Acompanhe com o prof. 
Antônio Costa este interessante 
relato sobre os sistemas 
especialistas e seu poder de 
raciocínio lógico e dedutivo. 
Como exemplo, um Programa 
Detetive para que seu micro 
possa demonstrar sua 
inteligência ao desvendar o 
mistério de uma investigação 


policial. 
2 SIDRA - Tiros de raio 
laser! Helicópteros 
voando! Este mês, Rudolf 
Horner Jr. ensina como você 
pode obter efeitos especiais 
como estes utilizando recursos 
do próprio Apple. E mais: 
como registrar e recuperar 
informações em fita cassete 
com mais eficiência e rapidez. 





Valmir Ben) Jamim 
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A ROTINA APONTA-ERROS - 


Programa de Carlos A. 


Diz. 


GROAN: OS DADOS ESTÃO EM JOGO 
13 - Programa de José Roberto Cóttim. 
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CORRIGINDO PROVAS NO MICRO - 
Programa de Lawrence Falconer King. 


PARA BOM INVESTIMENTO, UM 
MICRO PESSOAL BASTA - Programa de 
Armando Oscar Cavanha Filho. 


ABRINDO ESPAÇO PARA A 
4() LINGUAGEM DE MÁQUINA - 
Programa de José Ricardo Flores 


Rodrigues. 
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Q EDITORIAL 


6 cartas 


DOMINE O MICRO NO DOMINÓ - 
Programa de Everton Pereira. 


30 errs 
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EM GEOMETRIA, A ' gu 
66 ÁREA É DO MICRO - 
Arquitetos, engenheiros, 
matemáticos... você, usuário da 
linha TRS-80: aproveite os 
recursos deste programa de 
Heber Jorge da Silva que 
desenha e calcula a área de 20 
figuras geométricas diferentes, 
bastando que você entre com 
as medidas necessárias. 


Rs 
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17 BATALHA NAVAL - 

Viva as emoções desta 
verdadeira guerra de nervos e 
perspicácia contra seu micro da - 
linha Sinclair. Esconda bem os, . 
seus, destrua todos os navios 
de seu inimigo e seja O E 
vencedor deste jogo escrito por -- 
Waldir Ferreira de Arruda. 


DE AZIMUTE EM RUMO - Programa de 
Laci Mota Alves. 


MICRO BUG: O COMANDO M E AS 
PRINCIPAIS ROTINAS SGM - Artigo 
elaborado pela equipe do CPD MS. 


OUTRAS PALAVRAS EM FORTH - 
Artigo de Ivan Camilo da Cruz. 


MANTENHA SEUS BYTES SOB 
CONTROLE - Artigo de Carlos A. Diz. 


ALÉM DO BASIC, ASSEMBLER, DOS 
E OUTROS MISTÉRIOS - Programa de 
Roberto Quito de Sant'Anna, 


CURSO DE ASSEMBLER - XVI 


46 LIVROS 


e 


48 Dicas 


75 MENSAGEM DE ERRO 
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usto no momento em que o mer- 

cado brasileiro começa a adentrar 

mais claramente na discussão so- 

bre os equipamentos de 16 bits, 

32 bits, micrinhos, supermicrões 
e outros bichos, uma verdade insofismii- 
vel pode ser detectada: a micro-informá- 
tica no Brasil ainda não constitui uma 
comunidade de usuários que eficiente- 
mente interaja com a máquina. Culpa- 
dos existem por toda parte e não se tra- 
ta, aqui, de expurgá-los, visto que o re- 
médio neste caso pode acabar matando 
o paciente, mas é preciso exorcisar al- 
guns fantasmas que insistem em perma- 
necer no cenário. 


A profusão de modelos tipo XLMW/ 
33 (o “X” é experimental), compatível 
apenas consigo mesmo — alterou um en- 
dereçozinho do Apple, um parafusinho 
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“no TRS, um pequeno chip do Sinclair, 

resultando num “parece que é, mas não 
é, vulgo Denorex” — acaba causando ta- 
manha confusão para os usuários que 
desencoraja qualquer tentativa de desen- 
volvimento real de um software de qua- 
lidade. 

Não fosse isto suficiente, basta o 
acontecimento de uma feira ou uma ex- 
posição de microcomputadores, e logo 
uma dezena de novos modelos são lan- 
çados na praça, alguns chegando ao cú- 
mulo de serem lançados mais de uma 
vez. São os chamados “microfeira”, 
cujas trajetórias, do lançamento ao apa- 
recimento efetivo nas lojas, são muitas 
vezes longas a ponto deles se perderem 
no caminho. O consumidor em poten- 
cial, que já tinha dúvidas quanto ao equi- 
pamento a escolher, fica ainda mais con- 
fuso. 


Estamos atendendo agora nos seguintes endereços: 
RIO DE JANEIRO — Av. Presidente Wilson, 165/grupo 1210, Centro, RJ, CEP 20030 — 


Estamos passando por uma fase de 
mistificação do hardware, que sem dú- 
vida nos levará a um beco sem saída. 
Exemplos como Visicale, Wordstar, etc., 
demonstram que o lampejo que cria o 
software independe do equipamento, 
pois a utilização é muito mais importan- 
te que o meio. De fato, hoje existem 
versões para todos os tipos de equipa- 
mentos dos melhores softwares criados 
internacionalmente nos últimos anos. O 
que precisamos são mecanismos € incen- 
tivos que preservem a atividade CRIATI 
VA, não importando que ela incida so- 
bre um IBM PC, um Apple, TRS, ou 
Sinclair. 


= tels.: (021) 262-5259, 262-6437 e 262-6306. 
SÃO PAULO — Rua Oliveira Dias, 153, Jardim Paulista, SP, CEP 01433 — 
tels.: (011) 853-7758, 8891-5668 e 853-3800. 


ADMINISTRAÇÃO: Jcinete Sarno 


PUBLICIDADE 


São Paulo: 
Notal Calina 
Contatos: Eloisa Brunelli: Marisa Ines Coan; Paulo Go 


mide. 


Rio de Jonairo: 
Elizabeth Lópes dos Santos 
Contato; Regina de Fátima Gimenez 


Minas Gerais: 

Rapresentante: Sidney Doiningos da Silva 
Rua dos Caetés, 530 — sola 422 

Te!.: (031) 201-1284, Belo Horizonte. 


CIRCULAÇÃO E ASSINATURAS: 
Ademar Belan Zochio (RJ) 
Janio Pereira (SP) 


DISTRIBUIÇÃO: | 
Fernando Chinaglia Distribuidora Ltda. 
Tel.: (021) 2468-9112 


posição: ; 
Gazeto Mercantil S/A Gráfica é Comunicações 
Fotelito: 

Orgonização Beni Ltda, 

tImpreásão: 

Edhora Vecchi 5. À. 





ng 


Assinoturos:- 
No país: 1 ano — €1$ 20.000,00 


Os artigos assinados são de responsabilidade única e ax: 
clusiva dos autores, Todos os direitos de reprodução do 
conteúdo da revista estão reservados e qualquer repro- 
dução, com finalidade comercial ou não, só poderá ser 
faità mediante avivrização prévia. Transcrições porciais 
de trechos pary comentários ou referências podem ser 
feitas, desde que sejam mencionados os dados biblio- 
gróficos de MICRO SISTEMAS. A revista não aceita mo- 
feria! publicitário que possa ser confundido com matéria 


 W 


MICRO SISTEMAS & uma publicação mensal do 


; FT | Análise, Telaprocessomento 
. e Informática Editora Ltda. 


E : 
Rua Ofiveira Dias, 153 — Jordim Paulista — Sã Paulo/SP 
—— CEP 01433 — Tels.: (011) 8539-3800, 8593-7758 e 881-5668, 


Av, Presidente Wilson, 165 — grupo. 1210 — Centro — Rio 


de Jônsiro/RJ] — CEP 20030 — Tels.: (021) 262-5259, 262+ 
€ 2672-6306. 


MICRO SISTEMAS, maio/84 





Datalife tem 
resposta para tudo. 








Os Disquetes Datalife sempre têm São os mais vendidos no mundo e seus Disquetes Datalife num local onde 
um modelo exato para cada tipo de produzidos pela empresa que mais eles têm pai, mãe, residência conhecida, 
necessidade, seja ela para controles e investe em pesquisa e desenvolvimento e garantia de 5 anos. 
decisões empresariais, assuntos pessoais de produtos, líder mundial na tecnologia A Memphis tem estoques para entrega 
e profissionais ou lazer com de mídia magnética flexível. imediata. 
microcomputador. Tudo isso está a seu dispor na 


m Memphis. 2 b 
A Memphis responde, com a 
1% " segurança de que você pode comprar r oo 


REVENDEDORES E FABRICANTES INTERESSADOS: (OI) 262-5332 

CENTRAL DE VENDAS: Av, Arnoifo Azevedo, 108 - São Paulo - Tel. (01) 262-5577 - Telex. (011) 34545 - FILIAL RIO DE JANEIRO: Praia do Flamengo, 66 
Bloco B-Cj. 1519 - Tels. (021) 225-3469 e (021) 205-3849 - MATRIZ: Av. Angélica, 35 - São Paulo - Tel. (011) 8226-9500 - REPRESENTANTES e BA - Salvador 
(071) 241-6369 * DF - Brasília (061) 223.3330 * MG - Belo Horizonte (031) 442.9472 « PR - Curitiba (041) 222-4831 e RS - Porto Alegre (0512) 25-9273 

* SC - Florianópolis (0482) 132 ramal 15 « SP - Bauru (0142) 228-4303 e SP - Jundiaí (011) 434,3199 e SP - Presidente Prudente (0182) 22-7999 











ED Te ra 0º a E cg e Em Dt 


= edite memo namoram 








O sorteado deste mês, que receberá uma 
assinatura de um ano de MICRO SISTEMAS, 
é José Minerva de São Paulo. 


ARQUIVAR DESENHOS 


Tenho uma dúvica com relação ao pro- 
grama “Desenhe no vídeo”, publicado em 
MS nº 27: tentei, como o programa sugeria, 
arquivar o desenho usando a rotina “Arqui- 
ve no vídeo", publicada em MS nº 23, na 
Seção Dicas. Mas dessa forma só seria poss- 
vel arquivar um único desenho ou tela. En- 
tão, tentei passar o desenho depois de argui- 
vado para uma variável, aproveitando a Dica 
“tInicializando variáveis”, de MS nº 26, mas 
não sei porque isto não foi possível. 

Gostaria que vocês publicassem uma roti- 
na capaz de arquivar a imagem em uma variá- 
vel qualquer, de forma que fosse possível ar- 
quivar vários desenhos em variáveis distintas, 
Se possível, gostaria que me informassem 
qual o endereço onde é arquivada a imagem 
naquela rotina “Arquive no vídeo”. 

Marcelo Batista Silveira 
Osasco — SP 


Nós também, Marcelo, gostaríamos de 
ter esta rotina que arquivasso vários desenhos 
em variáveis. Seria Ótimo, mas infelizmente 
não temos. Talvez algum leitor já a tenha de- 
senvolvido e nos mande, quem sabe? Vamos 
torcer que sim. Com relação ao endereço on- 
de é arquivada a imagem na rotina “Arquive 
no vídeo”, anote aí: é a partir de 31000. 


EXPANSÃO NO CP-200 


Recentemente comprei um CP-200 e já 
estou com vontade de aumentar sua capaci- 
dade «de memória para mais de 16 K, se pos- 
sível. Como sei que poderei contar com a 
ajuda de vocês, gostaria que me indicassem 
o melhor meio para fazer esta expansão, 
pois no manual que acompanha o micro 
não existem muitas informações. 

Luís Paulo Neri de Souza 
Mutu ípe-BA 


Como é de praxe, Luís Paulo, mandamos 
sua carta para a Prológica, e esta respondeu 
o seguinte: 

“Com relação à consulta do leitor Luís Pau- 
lo, gostaríamos de eselarecer-lhe que a me- 
mória do CP 200 é de 16 K da RAM. Até o 
presente momento, não estamos cogitando 
em oferecer uma expansão de memória para 
o CP 200, o que não significa que isto não 
venha a acontecer no momento correto. 

Se o leitor conhecer o microprocessador 
ZBOA, terá a possibilidade de aumentar a 
capacidade de memória do micro, uma vez 
que, através da saída lateral do CP 200, tem- 
se acesso aos sinais deste microprocessador”. 
Eng. Dan Guinsburg 
Gerente de Produtos-Computadores Pessoais 
da Prológica 


Solicitamos o endereço do Instituto Bra- 
sileiro de Administração Municipal — IBAM, 


pois temos interesse numa informação veicu- 
lada em MICRO SISTEMAS nº 25, Seção 
Bits (Strings). 

Jocymar Geraldo Lyra 

Gerente Comercial da Digicap 


O IBAM fica no Largo do IBAM, nº 1, 
Humaitá, Rio de Janeiro -— RJ, CEP 22282. 
E o telefone do Setor de Promoção é (021) 
266-6622 R. 292. 





Escrevo-lhes para, antes de tudo, parabe- 
nizá-los pelo excelente trabalho que vem 
sendo feito por vocês. Gostaria também de 
apoiar a idéia do laitor Jorge Francisco Sala- 
zar, de Porto Alegre, que foi publicada na 
Seção Cartas de MS nº 27: criar uma seção 
com tabelas de preços dos micros e de vídeo- 
games. 

Gostaria ainda que vocês publicassem 
ondese pode fazer bons cursos de computa- 
ção nas principais capitais brasileiras. 

Denise Hemerly 
Rio de Janeiro — RJ 


Antes de mais nada, Denisa, a equipo 
agradece os elogios: muito obrigada e bem- 
vinda à MS. As suas sugestões foram anota- 
das, mas com referência aos Cursos, já publi- 
camos uma extensa matéria sobre este assun- 
to em MS nº 18, página 60. Dã uma espiada. 
Você também pode ler nos números de MI- 
CRO SISTEMAS a Seção Cursos, bem como 
observar os diversos anúncios sobre cursos 
veiculados em nossa revista, ok? 


DICAS PARA O DGT-100 


Tenho um DGT-100, mas estou com dois 
problemas: 

O — como desativar o botão RESET, pois 
a tecla BREAK não tem mistérios; 
2º — como, através de um programa em lin- 
guagem de máquina, conseguir chamar uma 
rotina, ou sub-rotina, em BASIC. 

No primeiro caso, fiquei animado quan- 
do l!i, na página 18 de MS nº 26, o artigo 
“Programas trancados e selados”, mas de- 
cepcionei-me, pois o artigo era para micros 
compatíveis com o Apple. Deve haver ai- 
gum meio de desativar o RESET no Digitus; 


tudo indica que seja utilizada a região de, 


comunicação, mas não consigo descobrir 
como. 

O meu programa DGEDAS (Editor As- 
sembler da Digitus) desativa o RESET. Tele- 
fonei para a Digitus e o Sr. Alexandre disse- 
me que a tecla não é desativada. Não acredi- 
to, pois o programa DGEDAS, da própria 
Digitus, desativa-o. Será que vocês podem 
me dar uma dica? 

No segundo caso, quero fazer a chamada, 
por um programa em LM, de uma rotina em 
BASIC. O livro “Microsoft BASIC decoded 
and other mysteries”, na página 30, quando 
trata de BASIC Functions, apresenta a sub- 
rotina JP 1EB1-GOSUB como “'capaz de fa- 
zer com que uma sub-ratina em BASIC seja 
chamada por uma sub-rotina em Assembler”, 
e dá, inclusive, um exemplo com a função 
TRON do BASIC. Apesar dos meus esfor- 
ços, não consegui que funcionasse. Já segui 
todos os passos dados no programa-exemplo 
e não consigo rodá-lo, pois sempre apresenta 
erro. Como posso fazer isso? 

José Eduardo de Oliveira e Cruz 
Rio de Janeiro-RJ 


Infetizmente, José Eduardo, não pode- 
mos ajudá-lo. Mas talvez algum leitor mais 


- 


curioso e proprietário de um DGT-100 te- 
nha como auxiliálo. Vamos fazer coro com 
o seu pedido, e esperar que algum teitor pos- 
sa colaborar com o seu problema. 


MS AGRADECE 


O mundo dos micros é simplesmente fa- 
buloso, o potencial inerente a esses ““bichi- 
nhos” virou totalmente a minha cabeça. 

(...) De todas as revistas especializadas 
que pesquisei, essa foi a única a chamar mi- 
nha atenção; portanto, quero parabenizar os 
responsáveis e incentivá-los a manter o nível, 
que se tem mostrado excelente. 


Através da Seção BITS, tomei conheci- 
mento de um curso de BASIC que pode ser 
ministrado, ou seja, desenvolvido pelo inte- 
ressado em sua própria residência. Nem é 
preciso dizer que já mandei um comunicado 
à SDI — System Design Ltda., solicitando as 
devidas informações. Desde já agradeço aos 
integrantes de MICRO SISTEMAS o apreço 
que têm por aqueles que estão tomando co- 
nhecimento dessa maravilhosa área de atua- 
ção. 


Mostrei a revista a alguns amigos que 
também gostam da matéria e fiquei muito 
feliz com o pronunciamento de cada um de- 
les, uma vez que se mostraram favoráveis ao 
conteúdo de MICRO SISTEMAS. Os meus 
parabéns a todos vocês, e continuem se es- 
forçando pera que a circulação desse perió- 
dico se mantenha na ativa. Respeito plena- 
mente a opinião do nosso caro amigo lei- 
tor Mário Gomes da Silva, que citou as se» 
guintes palavras na Seção Cartas: “Uma re- 
vista de alta competência deve ser sempre 
elogiada e falada. Como todos dizem, é uma 
revista MADE IN BRAZIL”. 

Valmir Rodrigues da Silva 
São Bernardo do Campo-SP 


Gostaria de parabenizá-los pela MICRO 
SISTEMAS nº 28, de janeiro de 84, que 
realmente trouxe programas muito interes- 
santes para todos os tipos de microcompu- 
tadores. Gastaria também de parabenizar q 
autor do programa “Pescaria em águas 
eletrônicas”, o Sr. Neison Hisashi Tamura, 
que, usando a criatividade e sua experiência, 
fez um ótimo programa. Achei também 
muito bom o programa “Aventuras em Serra 
Pelada”, só que não me animei a digitá-lo. 
Parabéns e que a revista MICRO SISTEMAS 
se desenvolva por muitos 8 muitos anos. 
Henrique A. Vianna 
Pelotas — RS 


Sou há alguns meses proprietário de um 
TK-85, o qual comprei para obter auxílio no 
cálculo estrutural em Engenharia Civil. MS 
conseguiu despir por completo a impressão 
séria e antipática que eu tinha dos microcom- 
putadores pessoais, conduzindo-me ao fasci- 
nante mundo dos jogos... Envio-lhes meus 
sinceros parabéns e que continuem a publi- 
car aplicativos e jogos (principalmente em 
Assembler) para a linha Sinclair. 

Dilson Lara Júnior 
São José dos Campos — SP 


Parabenizamos esta conceituada revista 
pela decisão de incluir uma Seção dedicada 
às aplicações do micro no radioamadoarismo. 
Sentimo-nos duplamente contentes: pela 
idéia e pela escolha do responsável, Roberto 
Quito de Sant'Anna, PY 1 DWM, nosso 
companheiro, Awards Manager e Membro 
do Censelha Deliberativo do CWRJ (...). 
Ronaldo Curi Gismondi 
Secretário Geral do CWRJ 
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Como usuário de micros da linha Sinclair 
há dois anos, parabenizo MICRO SISTEMAS 
por dedicar tantas páginas a este sistema, 
que não só tem o maior número de aficio- 
nados entre todos os outros, como é o mais 
acessível, realístico e possui um universo 
muito maior (tanto em software quanto em 
hardware). 

Adriano Giusfredi de A. Botelho 
Amparo — SP 


— SUGESTÕES | 


Sou leitor de MICRO SISTEMAS e acho 
que é a revista mais completa sobre compu- 
tadores do Brasil, Gostaria de sugerir que vo- 
cês fizessem um curso de BASIC e um de As- 
sembler especialmente para crianças. 

Gostaria também que vocês fizessem to- 
do més a avaliação de um micro, e ainda que 
a cada seis meses publicassem uma tabela 
com os principais micros e seus preços. 
Jorge Pablo Z. Rivera 
Salvador — BA 


Quero sugerir a publicação de um Moni- 
tor Assembler (do tipo que foi publicado em 
MS nº 23) para as linhas TRS-B0 e Apple. 
Gostaria também que voltassem a publicar 
artigos e programas para a T|-59. 

Sugiro também que publigquem umarepor- 
tagem sobre o TK-2000 Color, com todas as 
suas características: o microprocessador usa- 
do, o sistema operacional, quais periféricos 
que aceita é onde podem ser encontrados, se 
existem programas em cartuchos ROM... 
Tudo, enfim, sobre este equipamento. 
Miguel Angelo Henzo 
São Paulo — SP 


Visando ao aperfeiçoamento e engrande- 
cimento da revista, gostaria de fazer a seguin- 
te sugestão: várias revistas de automóveis 
possuem uma seção sobre preços de veículos, 
Que tal se MS tivesse também uma seção pa- 
recida, onde encontraríamos preços e outras 
características dos micros nacionais? A seção 
poderia chamar-se “Mercado dos Micros”. 
Marco Túlio de O. Valente 
Viçosa — MG 


Gostaria que a revista colocassa uma Se- 
ção Dicas só para equipamentos da linha 
Sinclair, pois nós, os usuários destes equipa- 
mentos, sentimos muito a falta de publica- 
ções realmente úteis, principaimente no sen- 
tido de aprender a programar em linguagem 
de máquina. E vocês poderiam, na medida 
do possível, colocar também na revista um 
curso em linguagem de máquina para equi- 
pamentos da tinha Sinclair, assim como foi 
feito com o curso de Assembler. 

Edison Bueno da Silva 
Jundiaí — SP 


Não abusando da boa vontade com a qual 
Vs. Sas. têm atendido aos seus leitores, gos- 
taria, se possível, de ver publicados pro- 
gramas em BASIC na área contábil, como: 
lançamentos contábeis, contas a receber e a 
pagar, depreciações, balancete, balanços etc. 
Divo Machado dos Santos 
Sorocaba — SP 


Se possível, coloquem juntamente com o 
nome dos autores dos programas os respecti- 
vos endereços e telefones para um maior e 
mais rápido esclarecimento de supostas dú- 
vidas existentes nos programas que eles edi- 
taram. 

Eduardo Lazarin Marques 
São Paulo — SP 
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Sugiro a publicação de programas aplica- 
tivos compatíveis com o TK-85. 
Murillo E. Arizi 
Porto Alegre — RS 


Fui a uma bança de jornais procurar al- 
guma coisa sobre microcomputadores. O jor- 
naleiro me ofereceu cerca de sete revistas, 
vistoriei todas e selecionei a melhor: era a 
MICRO SISTEMAS, os artigos publicados 
eram exatamente o que eu procurava. Para- 
benizo todos os produtores desta revista, 
uma publicação sensacional. Desejava apenas 
que vocês publicassem mais programas para 
computadores da Linha Sinclair. Pe 
Marcelo Thomaz 
Santo André — SP 


Gostaria de sugerir que publicassem o 
Micro Mercado (tanto para micros quanto 
para impressoras a outros perifóricos) por 
bimestre ou trimestre. Acho também que ta- 
belas de funções de várias linguagens seriam 
de grande utilidade para os principiantes. E, 
finalizando, sugiro também a publicação tbi- 
mestral ou trimestralmente) de todos os pro- 
gramas lançados no mercado. 

Nelson Junzt Nagamine 
Embu — SP 


Acho que vocês poderiam criar uma Se- 
ção voltada para os micros compatíveis com 
o TRS-80, pois, proprietário que sou de um 
DGT-100, fiquei com “ciúmes” do Apple 
por causa da Seção Sidra (muito bem feita 
pelo Sr. Horner). 

Robinson S. Pereira 
Rio de Janeiro — Rj 


Solicitaria aos caros amigos que, quando 
da publicação de um programa, fizessem a 
necessária explicação sobre como se efetua 
o seu funcionamento (os iniciantes, como 
eu, ficam sem opção). 
José Minerva 
São Bernarda do Campo — SP 


Descobri que MICRO SISTEMAS era a 
revista de que precisava para o meu micro. 
Com ela já rodei vários programas que mea 
ensinaram muitas coisas. Gostaria, entretan- 
to, de dar uma sugestão: publiquem um cur- 
so de linguagem de máquina para a linha 
Sinclair. 

Silvio Ferraz 
Piracicaba — SP 


Gostaria que fosse fundado um Clube de 
Software pela MS para trocas de idéias, co» 
nhecimentos e programas. Acho também 
que um curso de BASIC ministrado por vo- 
cês seria interessante. 

Wander M. Martins 
Itajubá — MG 


Possuo um micro VIC-20, e para encon- 
trar artigos sobre ele é preciso comprar re- 
vistas importadas. Por isso, faço uma suges- 
tão: que em sua revista seja publicada uma 
página destinada a micros importados co- 
mo o meu. Acredito que a vendagem aumen- 
taria muito, pois há um grande número de 
pessoas que possuem micros importados. 

Entendo que sua revista procure fortale- 
cer a indústria nacional, porém acho que o 
dinheiro que se gasta comprando revistas 
importadas poderia reverter para o mercado 
nacional. tn 
Marcos André O, Paraíso 
Rio de Janeiro-RJ 


Envie suas sugestões para MICRO 
SISTEMAS. Elas serão anotadas em nossa 
pauta e procuraremos, na medida do 
possível, viabilizá-las, 
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A COLADORA DE BLOCOS DE PAPEL 

















DA LAURENTI. 


COLA EM MENOS 
DE 30 SEGUNDOS. 


Colabloc - 1? coladora nacional com 
tempo total de operação máximo de 
30 segundos. 

Produto de mesa, compacto, simples e 
seguro, ideal para escritórios que não 
exijam sistemas complexos de 

encadernação. 

Perfeito para atender às necessidades de fia 

usuários de computadores e gráficas, 

cujo volume de trabalho de 
encadernação não seja grande. 

Executa um trabalho limpo por não 
necessitar de contato manual com a cola. 

Não exige instalações especiais, sendo | 

apenas necessário uma tomada 

rnonofásica de 110 volts 50/60 Hertz. 


AS laurenti 


EQUIPAMENTOS PARA PROCESSAMENTO 
DE DADOS LTDA. 

Matriz: Rua Theodureto Souto, 308 - Cambuci - CEP: 01539 
PABX: 270-8244 - Tetex: (011) 36305 - São Paulo - SP 
REPRESENTANTES TÉCNICOS E COMERCIAIS 

EM TODO O BRASIL. 
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Se é dificil evitá-los, vamos detectá-los! E para facilitar a tarefa apresentamos 
uma rotina que localiza os erros de programação no Apple e compatíveis 





À rotina aponta-erros 


Carlos Alberto Diz 


maior trabalho na confecção de um programa não 

está em escrevê-lo, mas sim em conseguir rodá-lo em 

sua totalidade sem erros! Qualquer pessoa que tenha 

se proposto a escrever algo mais complexo do que 
um simples loop para imprimir os dígitos de O a 9 certamente 
já descobriu esta grande verdade. Segundo a famosa lei de Mur- 
phy, sempre que puder haver um erro ele estará lá, e o corolá- 
ro acrescenta que sempre haverá um erro a mais do que o es- 
perado. 

A técnica de depurar um programa de seus inevitáveis erros 
chama-se debugging, e adquirir habilidade nesta tarefa deve ser 
realmente o principal objetivo de qualquer um que deseje al- 
cançar níveis de complexidade mais elevados em seus progra- 
mas. Debugar programas, como se diz em computês, é por ve- 
zes uma árdua aventura, pois geralmente o erro se esconde no 
meio das linhas entre vírgulas e aspas, escapando assim até ao 
olho mais atento durante pelo menos as primeiras 132 revisões 
da listagem. Existem, adicionalmente, dois fatores agravantes: 
1) nem todos possuem uma impressora (no Brasil um investi- 
mento de porte considerável) para listar o programa no papel 
e facilitar um pouco a humilhante busca do malfadado erro. 
Não possuindo tal instrumento, o infeliz programador não tem 
nenhuma alternativa senão passar horas olhando para o vídeo 
até encontrá-lo, ficar estrábico ou desistir; 

2) muitos programadores (os mais avançados por certo) desco- 
brem que é possível obter-se alguma economia de memória 
juntando vários comandos numa só linha, separando-os com :, 


- como nos ensina qualquer manual de BASIC. Se é verdade que 


isto economiza memória, também devemos reconhecer que 
esta técnica torna muito mais vitorioso o esforço do erro em 
fugir ao olho atento (no início, pelo menos) do programador. 

No meio disso tudo, é preciso lembrar, no entanto, que o 
interpretador sempre nos ajuda um pouco com suas rotinas de 
error-trap e mensagens que nos dizem quando ocorre um erro, 
em qual linha e de que tipo se trata. Mesmo assim, saber em 
que linha há um erro pode limitar o campo de busca, mas a 


8 


ar PI LA PO EA aaa a gaga ro = ST a SOPRA 


mensagem sobre o tipo de erro é freqiientemente ambígua ou 
não faz sentido algum mesmo. Além disso, no caso de linhas 
compactadas, cheias de instruções, o interpretador não diz exa- 
tamente onde está o erro (e às vezes existem mais de um), o 
que nos leva a concluir que o interpretador torce pelo erro! 


DA PROCURA AO GRANDE ACHADO 





Lembro-me de ter encontrado, em algum momento de mi- 
nha vida, um interpretador de BASIC (se não me angano num 
HP-2000F) que, quando detectava um erro, era tão gentil que 
colocava uma flechinha embaixo do comando errado ao listar 
a linha culpada. Lembrando-me disto, e remechendo no meu 
Apple há algum tempo atrás, descobri alguns endereços interes- 
santes que, ocorrendo um erro, podem ajudar a encontrá-lo. 

Os endereços (em decimal) 218 e 219 contêm, respectiva- 
mente, o byte menos significativo e o byte mais significativo 
correspondentes ao número da linha onde existe um erro. 
daqui que o interpretador tira a informação que tão graciosa- 
mente nos proporciona quando diz: “erro na linha tal”. E 
ainda, e isto o interpretador não nos revela, os endereços 220 
e 221 (também decimais) contêm o endereço do statement 
na linha que causou o erro (se este ocorreu no primeiro sta- 
tement, será necessário acrescentar 5 a este valor), ou seja, diz 
em que parte da linha procurar. Apesar de não ser a coisa mais 
clara do mundo, esta informação pode ser usada de várias for- 
mas para localizar o erro. 

Descobertos estes endereços, e depois de muito trabalho in- 
grato, consegui fazer uma rotina que mais ou menos me infor- 
mava a posição de um erro na linha, mas a rotina não era realo- 
cável e continha valores que variavam em função do tamanho 
do programa ao qual estivesse pendurada. Isto fazia com que 
cada vez que o programa tivesse de ser alterado fosse necessá- 
rio alterar também estes valores na rotina. Enfim, era tão com- 
plicada e trabalhosa de usar que, em minha opinião, os benefí- 
cios que trazia não compensavam o trabalho que dava. 
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10 ONERR GOTO 60000:EPT=43:T=256 


60000 E=PEEK(220) + TXPEEK(221):E=E+5*(PEEK(E)=0):V=PEEKCE):POKEE.EPT:LSe RIGHTS 
(0000" +STR$CPEEK(2Z18)+T*PEEK(219)),5):L=PEEK(1219)+T*PEEK(122)449:FOR Jol 
TO 5:POKE L+I,ASC(MIDS(LS,1,1)):NEXT:LIST 00000:POKE E,V:POKE 216,0:RESUME 





Figura 1 


Recentemente, porém, chegou às minhas mãos uma rotina 
em Applesoft — cujo autor desconheço — que é um verdadeiro 
ovo de colombo, pois traz uma solução muito engenhosa para 
a utilização da informação que existe naqueles endereços que 
mencionei. É também um ótimo exemplo de código auto- 
modificante, uma técnica capaz de arrepiar qualquer fanático 
de programação estruturada, pois é realmente a antítese da 
estruturação. 

Rapidamente: código auto-modificante é um código que, ao 
rodar, altera um ou mais comandos nele contidos, ou Seja, O 
conteúdo de uma linha de programa é alterado uma ou mais 
vezes ao rodarmos o próprio programa. Algo muito parecido 
com levantar-se pelos laços dos sapatos. Tal recurso, impossível 
de ser concebido na mente organizada e rígida dos fanáticos 
da estrutura, permite fazer coisas do arco da velha, mas como 
tudo que é potente é também perigoso, pode, quando mal 
utilizado, destruir programas e levar o programador despreca- 
vido à loucura. 

Outra grande vantagem da rotina é o fato dela ser realocável 
(ao contrário da que eu havia bolado), isto é, ela pode ser pendu- 
rada em qualquer lugar e em qualquer programa sem que sua 
posição ou alterações no programa afetem seu funcionamento 
(da rotina). Em outras palavras: a rotina não contém endere- 
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Rua Sete de Setembro 99/1 E andar RJ. 


Pato 


ços implícitos ou explícitos em valores absolutos e sim somen- 
te em valorestrelativos. 





COMO USAR A ROTINA 





Tudo que vocês precisam fazer é digitar o código em seus 
micros (somente Apple compatíveis, por enquanto) na exata 
forma como está listado na figura 1. Mas atenção: é importante 
que a forma seja exatamente idêntica, especialmente no que 
concerne à linha 60000, pois de outra maneira certos valores 
precalculados de displacement poderão perder sua validez. 

Inserindo o programa a ser debugado entre as linhas 10 e 
60000 e rodando-o normalmente, caso ocorra um erro você 
receberá, além da costumeira mensagem de erro, uma listagem 
da linha condenada na qual terá sido incluído um ? no começo 
do statement que contém o erro. 

Se você não gostar dos números 10 e 60000 que eu atri- 
buí às linhas, mude-os à vontade, contanto que o seu progra- 
ma fique entre as duás. Nunca modifique, porém, o conteúdo 
da linha 60000, a menos que você saiba o que está fazendo, 
senão corre o risco de ver o seu programa alterado de maneira 


imprevisível e incrível! Se também não lhe agradar (mas vai ,, 
ser difícil assim...) o ?, substitua-o por um! ouum > ouo dê 
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A ROTINA APONTA-ERROS 













Linha tÔ 
é Estabelece que, em caso de erro, o confiéle deverá passar para 
a linha 60000. , 
e Atribui à variável EPT o valor 63, que corresponde a ASC(?). 
e Atribui à variável T o valor 256 (número compu-cabalístico). 
Linha 60000 En 

e Atribui à variável E o valor correspondente ao pointer de exe- 
cução, ou seja, a posição de começo do statement que contém o 
erro. 

e Caso o erro e no primeiro statement da linha, fazendo 
com que haja um CHR$(0) na posição E, ou seja, PEEK(E)= 0, 
então acrescenta S ao valor de É tormando-o correspondente à 
posição do primeiro caráter do primeiro statement da linha, 
e Atribui à variável V o valor contido na posição E, isto é, copia 
para A o ASC do caráter apontado por E (isto para repôlo em seu 
lugar no fim de nossa rotina). 

e Finalmente, coloca na posição apontada por E (nó lugar do 
caráter que mencionamos acima) o valor EPT, que no nosso caso 
corresponde ao ASC de ?, certo? 

e Atribui a L$ os primeiros cinco caracteres contados a partir da 
direita do que resulta da soma de 0000 com a transposição para a 
string do valor contido nos endereços 218e 219, ou seja, o núme- 
to da linha, garantindo sempre ter 5 dígitos e colocando zeros à 
esquerda quando este for inferior a 10000, 

e Atenção, pois aqui está o grande golpe de gênio e o detalhe de 
auto-modificação que mencionei: atribui à variável L o valos 49 + 


que você quiser, alterando o valor atribuído a EPT na linha 10. 
Por exemplo: 


10 ONERR GOTO 60000:EPT=32.T=256 


fará com que apareça um ! denunciando o statement culpado 
pelo erro. 

Você perceberá ainda que, quando o erro estiver do segun- 
do statement da linha para frente, o ? aparecerá no lugar do : 
que separa o statement culpado do statement precedente; po- 
rém, quando o erro estiver no primeiro statement da linha, o 
? aparecerá no lugar do primeiro caráter da linha, logo após o 
número da mesma, 

Este pesqueno defeito deve-se a razões intrínsecas à forma 
como o interpretador guarda as instruções do programa e em 
particular ao fato de que toda linha começa com um número 
para o qual são reservados 5 bytes, vindo logo a seguir uma ins- 
trução, seja um nome de variável, um token ou sei lá. Quando 
O interpretador está executando o primeiro statement de uma 
linha, o pointer de seqiiência de execução aponta para o pri- 
meiro byte do número da linha (5 aquém da posição do pri- 
meiro caráter da linha depois do número), enquanto que na 
execução do segundo statement de uma linha em diante, este 
pointer aponta para a posição onde está contido o : que separa 
este statement do anterior. Como a rotina coloca o ? na 
posição apontada por este pointer (ou esta +5 quando se trata 
do primeiro statement), explica-se a razão do ? estar onde está. 


Vamos entender melhor com um exemplo? Inclua esta 
linha: 





PROCURE QUEM 
REALMENTE, ENTENDE. 


R. Sete de Setembro, 92 - Lj. 106 
Tel.: 222-6088 - Rio de Janeiro 


Analisando a rotina 





o valor contido nos endereços 121 e 122. Estes endereços apon- 
tam em qualquer momento para a posição inicial do statement 
que está sendo executado no momento. Neste caso, quando for 
executada a instrução, eles apontarão para o : que precede 
L= PEEK(120)+T+*PEEK(1 22). Somando 49 ao valor deste pointer, 
obtemos então a posição do primeiro O no statement LIST 00000 
um pouco mais adiante na mesma linha. Se contarmos quantos ca- 
racteres há entre o primeiro : nesta linha e o primeiro O em LIST 
00000, lembrando que os comandos de BASIC correspondem a 
um só caráter, veremos que há exatamente 49, . 
e O loop, executado 5 vezes, faz nada mais nada menos que subs- 
tituir os 00000 no statement LIST 00000 (seguinte) pelo conteú- 
do de L$, ou seja, o número da linha mais alguns zeros à esquerda 
conforme necessário. Em outras palavras: a instrução LIST 00000 
otiginária do programa é alterada para LIST XXXXX, onde 
é o número da linha do erro. Depois de executado o 
loop, sé você listar q programa verá que realmente foi alterado o 
código da linha 60000! 
e Ostatement LIST XXXXX, quando executado, faz exatamente 
o que diz a linha número XXXXX que contém o erro, mas como 
esta linha havia sido também modificada (colocamos um ? no co- 
meço do statement criminal), ela será listada junto com a mensa- 
gem de erro, contendo um ? para nos indicar onde encontra-se o 
erto. 
e Finalmente, coloca-se de volta no lugar do ? o que lá havia an- 
teriormente e que, lembrem-se, havíamos guardado em V. 
e Resseta-se O pointer em 216, usado pela rotina dé error trap. 











10000 PRINT "OQ ERRO ESTA! NO PROXIMO 
STATEMENT'º.PRNT "A PALAVRA PRINT 
ESTA' MAL ESCRITA 


e rode o programa. Se você tiver feito tudo direitinho, na teta 
aparecerá: 


SYNTAX ERROR IN LINE 19009 


10000 PRINT"O ERRO ESTA! NO PROXIMO 
STATEMENT"? PRNT "A PALAVRA PRINT 
ESTA' MaL ESCRITA" 


Note o ? no lugar do : antes de PRNT, indicando onde está 
o erro. Se isto não acontecer, revise a linha 60000 buscando 
erros de grafia ou diferenças com respeito à figura 1 e volte a 
tentar. Quando conseguir, liste o programa para ver como na 
linha 60000 agora tem LIST 10000 no lugar de LIST 00000. 

Seguindo as instruções, eu garanto que funciona, e tenho 
certeza que será de grande ajuda naquelas longas seções de 
debugging. a 
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MD 550-01 


DUPLA FACE! DUPLA DENSIDADE 


Inclusive para 


quem “g a: | 
precisa comprar IO disquetes ff 


de uma vez. 


Datalife apresenta seu álbum duplo: uma 
embalagem adequada para quem precisa 
de um ou dois disquetes agora e só vai 
precisar de outros daqui a algum tempo. 
Em vez de você ficar comprando disquete 
solto por aí, que passa de mão em mão, 
com o álbum duplo você tem toda a 
segurança que existe. 


Ele contém apenas dois disquetes 

e vem lacrado. 

E o que tem dentro, você já conhece: 
Disquetes Datalife com certificação 
crítica, com desempenho muito além 
das normas tradicionais, e 100% livres 
de erros. 

Disquetes Datalife - na embalagem 
normal ou no álbum duplo, a garantia 
total de um nome que é líder mundial em 
mídia magnética flexível. 


dlalife 


2h 


Sig 


Datalife 


Verbatim: 













Você acumula vários pontos... e de repente pode perdê-los todos! O jeito 
é confiar na sorte, não arriscar muito e deixar rolar os dados no PC-1500 





Groan: os dados 
estão em jogo 









José Roberto Cottim 


do PC-1500 da Sharp (Radio Shack PC 2). fiz questão de adício-  sários, uma vez que o computador não é bobo e irá atrás de você sc u 


N este jogo de dados, que adaptei do Level II BASIC para o BASIC sua vez, logicamente, todo o seu bom senso & perspicácia sc farão neces» 
nar rotinas exclusivas do PC-1500 para deixar os orgulhosos pos- distância entre os dois placares for muito grande. Os pontos de uma ro- 


suidores deste computador de bolso mais orgulhosos ainda. dada, portanto, só passarão a fazer parte do placar geral quando você, 
Você e o computador possuem dois dados para jogar. O programa ou o computador, passar os dados para o outro espontancamente. 
começa perguntando ao jogador com quantos pontos ele gostaria que o Ao final da partida o vencedor é premiado com uma mensagem, 


jogo terminasse — qualquer valor entre 50 e 100 dará uma ótima parti- cujas letras geram uma musiquinha cibernética especial. Logo depois, Do) 
da, e ganha quem conseguir atingilo primeiro. Em seguida, o computa- display é invertido por intermédio de uma rotina em linguagem de má- 
dor joga uma moeda para cima, sorteando quem dará início à partida. quina. Eu = À 

Os dados podem scr passados de um para o outro de duas formas: É isso aí. Não perca tempo, digite logo a listagem e tenha boa sorte 
espontaneamente ou de maneira mais drástica. Se em uma determinada (você vai precisar dela !!). 
jogada um de seus dados marcar |, não só cles passarão para O adversá- 
Tio como também todos os pontos que você acumulou naquela rodada 
ficarão perdidos. E tem ptor; se os dois dados marcarem 1, todo o scu 
placar irá a zero, além, é claro, de você perder a vez (você poderá perce- José Roberto França Cottim estuda Engenharia de Telecomunicações 
ber que o número E foi representado Por uma carinha triste, poiséas- na Universidade Federa! Fluminense. Trabalha na FOCO, Firma promo- 
sim mesmo que você irá se sentir). tora de feiras, exposições e congressos, e desenvolve sistemas para mi- 


Para o computador escolher, na vez dele, se passará os dados para  crocomputadores desde 1981. 


você ou se continuará a jogar, há uma rotina a partir da linha 900. Na 
=—mme-u NJ 
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100: "DºCLEAR :MAIT O:RANDOM :CLS 400: 0=AND bs S=RND 6 

H0:A$="7FALGSEGASA TE”: B$XUTFALASGLSI4L TEM CSe TEL LASA9S TALES 410:C=135:R=0: BOSUB 600:0=145:R=5: BUSUB 600: BPRENT OQ 

H5:D$="7DALSSA ISSA TES: E$="FM5SAISSAL TF": F$= FA L6BLOB4L TES 420: IF O=1LET FeisBOSUB 500 

120:88="0000000000": H$="00000B0OOO!: 1$="OBILICITOO";J$="003E3E3E00* 430: IF S=ILET F=F+IsSOSUB 500 

123:K$="7E TETE IE IFIFIF A M$="D5 dados passam *;N$="para * MO: IF F=2WAIT O:PRINT "LERQ"SFOR 1=070 1:BEEP 1,60-1410,400: ; 

130: DATA TAL, E,ÍL,7,-1,0 NEXT Ir BEEP 1,33,600 o 

155: RESTORE 450: RETURN i 

140: INPUT "Final em quantos pontos ? *,y 900: BEEP 1,80,100:RETURN i 

150:P$="Voce": PRINT “dorteando";:R$=P$+" cogaca“; Q=RND 2 600: GLURSOR Cs GPRINT ASR): RETURN e 
160:1F D=2LET Q$="Fu comeco" 700: T=1+0+5: IF F)OLET T=0 

170: WAIT 25:FOR I=4TQ S:PRINT M.MssNEXT 1 710:3]F F=2LET 6(D)=0 

IBO:NAIT 200:PRINT Q$:D$=º jogando": TaQ: IF Q=2THEN 300 720: RETURN ; 

200: NALF 50:0L5 :F=0:D=1;PRINT P$;0$;A; T:GOSUB 400: BOSUB 700 800: 1F E(D)<HRETURN po 
20:1F F>ONAIT 100;:PRINT M$; N$; "mia": BOTO 300 BLO:R$="A FERA aqui ganh";5$="ou de novo”: E 

220:MALT OSCURSOR O:PRINT "CJ>oga qu <Pragsa A Vê=P$+" ganhou - Me"iW$="ra sorte! : 
230:READ K: IF X=ORESTORE 'READ X B20:MAIT Os IÉ B>=WPRINT R$;58: 3229040 à 

ZAQ:READ Y,Z:FOR IzkTO YSTEP 2: GOSUB 250:NEXT I:6OTO 230 B30: IF Ab=WPRINT VE WE: d=29104 

230:0=118;R= 1: BOSUB 400 B40:FOR I=0T025: DEEP L PEEK (J+1),100:NEXT 1 

260:D$=INKEY$ 1 IF 83=" "RETURN 890: POKE 4,12,118,74,0,5,189,255,65,78,78,153,8 

270: 1F 085") "THEN 200 8515 POKE J+12,76,119,139,6,72,119,74,0,158,16,154 

280:1F 084)*PFRETURN B40:FOR 1=20T0 ISTEP -1:CALL UIFOR K=0T0 ESNEXT KINEXT I3END 

290:CLS sAzÁsTENAIT 200: PRINT P$;" tom"; AsBOSUB 800 900:V=B+T: IF V>=WTHEN 960 

295; F=1:60T0 210 910:1F W-ASIOTHEN 970 

300: 50 D=2 920: 1F BI=ALET LeT/25:607D 950 

SIQ:MAIT S0:F=0: PRINT "Eu";0$:8;T:GOSUB 400: GOSUB 700 930: 1F VXALET LeT/35:60TO 950 a 
320:1F F>OTHEN 350 940: L=T/30 ALSARISHO: Q a 
380:805UB 900:MALT 100: 1F XPRINT "Jogarei novamente"; BOTO 310 950: IF AND G)LTHEN 970 CARACTERE 0 É 

340:B=B+T; PRINT "Vou parar agora, Tenho"; B:GOSUB BOO 960: 1=0: RETURN 

S50: PRINT M$; N$; "voce": T=)s GOTO 200 970: k=1: RETURN 
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Programas 
que raciocinam 








Nos artigos Inteligência Artificial | e |1, publicados, 
respectivamente, nos números 29 e 30 de MICRO SISTEMAS, abordamos a importância , 
das técnicas de programação de jogos para o desenvolvimento da Inteligência 
Artificial, exemplificando com um jogo inteligente para a linha TRS-80. Neste 
número falaremos sobre os sistemas especialistas, mais uma prova do 


igamos que você queira es- 

crever um programa capaz 

de efetuar uma investigação 

policial como aquelas que 
ocorrem em histórias de detetive. Seu 
programa pode realizar esta tarefa racio- 
cinando como Sherlock Holmes ou co- 
mo os detetives de Agatha Christie. 

O raciocínio usado por Sherlock Hol- 
mes é denominado progressivo. Holmes 
parte de fatos e vai deduzindo outros fa- 
tos até chegar à solução do problema no 
qual ele está trabalhando. Já Hercule Poi- 
rot, o famoso detetive belga criado por 
Agatha Christie, usa o raciocínio regres- 
sivo. Poirot parte de uma lista de hipó- 
teses e procura reunir fatos que ihe per- 
mitam concluir que uma das hipóteses é 
verdadeira. 

Um dos maiores êxitos alcançados 


pela Inteligência Artificial foi a constru- 


ção de programas que, usando raciocí- 
nio regressivo, conseguiram realizar tra- 
balhos em medicina, geologia, química, 
engenharia de manutenção etc. Tais pro- 
gramas são conhecidos por sistemas es- 
pecialistas. | 

O primeiro sistema especialista a con- 
quistar o interesse do público foi o MY- 
CIN, escrito em LISP pelo médico E. H. 
Shortliffe (o MYCIN é capaz de diagnos- 
ticar doenças infecciosas e indicar o tra- 
tamento). Nenhum sistema especialista, 
entretanto, causou mais entusiasmo do 
que o PROSPECTOR. A finalidade des- 
te programa é localizar áreas apropria- 


que a Inteligência Artificial é capaz. 


Antonio Costa e André Gurgel 
PEER E 


das para a prospecção geológica e seu 
bom desempenho nesta tarefa foi com- 
provado em 1980, quando ele descobriu 
importante mina de molibdênio no Esta- 
do de Washington. 

As aplicações dos sistemas especialis- 
tas são inúmeras. A avaliação estática do 
Belle, por exemplo, é realizada por um 
sistema especialista. Para quem não sa- 
be, Belle é um programa capaz de jogar 
xadrez quase a nível de mestre nacional. 
Roger Schanck está comercializando sis- 
temas especialistas capazes de ajudar as 
pessoas a escrever testamentos e a preen- 
cher formulários de imposto de renda. A 
GE encomendou um programa para diri- 
gir a manutenção de suas locomotivas. 
Um programa conhecido como ONCA- 
SYN é usado para fazer o acompanha- 
mento de pacientes submetidos a qui- 
mioterapia. Em Portugal, L. Pereira e 
colaboradores construíram o ORBIS, 
um programa que entende Português e 
indica a melhor forma de usar recursos 
naturais. Poderíamos fornecer muitos 
outros exemplos, mas acreditamos que 
estes já são suficientes para convencer o 
leitor da importância dos sistemas espe- 
cialistas. 

A finalidade deste artigo é mostrar 
como os sistemas especialistas funcio- 
nam. Para isto, fornecemos um pequeno 
programa capaz de realizar uma investi- 
gação policial. Estudando este progra- 
ma, O leitor entenderá o mecanismo do 
raciocínio regressivo. 





Gostaríamos de frisar que os sistemas 
especialistas reais são centenas de vezes 
mais complexos do que o fornecido aqui. 
Nosso sistema, por exemplo, não conse- 
gue trabalhar com informações inexatas 
ou incompletas e isto o torna inútil para 
atacar problemas reais. Se o leitor neces- 
sita de um sistema especialista para uma 
aplicação real, aconselho-o a ler osvários 
artigos que saíram na revista Artificial 
Intelligence sobre o assunto. 


TRANSFORME SEU 
COMPUTADOR NUM DETETIVE 


O sistema especialista que iremos dis- 
cutir trabalha com três distas: a lis- 
ta de hipóteses, a lista de fatos e a lista 
de regras. No início da investigação, a lis- 
ta de fatos pode estar vazia ou conter in- 
formações conhecidas de antemão. No 
decorrer da investigação, o programa per- 
guntará se certas frases são verdadeiras 
ou falsas. Dependendo da resposta do 
usuário, ele colocará a frase ou a nega- 
ção da frase na lista de fatos. 

A lista de hipóteses contém, como 
seu nome indica, as hipóteses que o sis- 
tema deseja demonstrar ou refutar. A lis- 
ta de regras, da qual há um exemplo na 
Listagem 1, é dividida em blocos denomi- 
nados regras. Dentro de cada regra, a sen- 
tença que vem antes do condicional SE 
é chamada consegiiente e as sentenças 
que vêm depois do SE são chamadas an- 
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Regras e hipóteses 


LISTA DE REGRAS 


t € 4A CAMAREIRA ROUBOU O COLAR) 
sE 


tA CAMAREIRA PRECISAVA DE DINHEIRO) 
tERA FACIL VENDER O COLAR) + 


t th CAMAREIRA PRECISAVA DE DINHEIRO) 
SE 


tA CAMAREIRA GASTAVA MUITO) 
(A CAMAREIRA GANHAVA POUCO) ) 


| 
| Listagem I- 


| C (A GRALHA ROUBOU O COLAR) 
SE 

| (A JANELA ESTAVA ABERTA) 
tD COLAR ERA BRILHANTE) 
(GRALHAS GOSTAM DE COISAS BRILHANTES) ) 


( <A JANELA ESTAVA ABERTA) 
SE 


(NÃO ESTAVA CHOVENDO) 
(ESTAVA FAZENDO CALDR) 5 


€ (ESTAVA FAZENDO CALOR) 
SE 


(ERA VERAO) 3) 


€ <OS CIGANOS ROUBARAM Q COLAR) 
SE 


(LIM CIGANO ENTROL NA CASA) 
fuM CIGANO FG1 VISTO COM D COLAR) 5 


€ (A CAMAREIRA SANHAVA POUCO) 

SE 

(O SALARIO DA CAMAREIRA ERA BAIXO) 
(A UNICA FONTE DE RENDA DA CAMAREIRA 
ERA O SALARIO) » 


t <UM CIGANO ENTROU NA CASA) 
SE 


(HAVIA RASTROS DE BOTAS NO JARDIM) 
(CIGANOS SEMPRE USAM BOTAS) 
(APENAS CIGANOS USAM BOTAS) ) ) 


LISTA. DE HIPOTESES 


ft <A CAMAREIRA ROUBOU à COLAR) 
(OS CIGANOS ROUBARAM D COLAR) 
tA GRALHA ROQUBDU D COLAR) + 


tecedentes. Quando o consegiiente de 
uma regra é igual a uma hipótese, a regra 
é dita relevante para a hipótese. 

O algoritmo usado para estabelecer 
se uma hipótese é verdadeira ou falsa é 
denominado VERIFIQUE e está descri- 
to no box anexo. Nós o implementamos 
em BASIC [Listagem 2), LISP/Listagem 
3) e LOGO/Listagem 4). LOGO é um 
dialeto do LISP usado para ensinar téç- 
nicas básicas de Inteligência Artificial a 
crianças. Podemos dizer que LOGO e 
LISP são praticamente iguais. 


COMO USAR OS PROGRAMAS 


A primeira coisa a fazer é digitar o 
programa que estiver na linguagem de 
sua preferência. Se você for usar 0 pro- 
grama em LISP no Apple II, digite antes 
a função DEF. Se você usar o programa 
em LISP num TRS$-80 como o intérpre- 
te da Supersoft, não tecle a definição de 
DEF. 
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* Listagem 2 - BASIC 


REM GISTEMA ESPECIALISTA 
REM LINGUADEM: BASIC 
REM COMPUTADOR: APPLE Il 
REM AUTOR: ANTONIO COSTA. 
REM 
REM Ses 3EIEIL SECRET III RITO SEE 
REM DESCRIÇÃO DE VARIÁVEIS 
REM SEICIEICACILIL IEP ICIE IICA EI 
REM 
REM FR$: FRASES, 
REM HIP: PONTEIROS PARA HIPO 
TEDES ARMAZENADAS EM FR& 
REM FT: PONTEIROS PARA FATOS 
ARMAZENADOS EM FR$& 
REM CNSG: FONTEIROS PARA DS 
CONSENQUENTES ARMAZENADOS EM 
FRS$. 
REM AN: NUMERO DE ANTECEDENT 
ES DA REGRA CUJO CONSEQUENTE 
EM APONTADO POR FR. 
REM OS ANTECEDENTES SAO POS 
TOS EM FR& LOGO APOS OS CONS 
EQUENTES. 
REM RL: PONTEIROS PARA AS RE 
GRAS RELEVANTES. 
REM ST: PILHA PARA SIMULAR R 
ECURSIVIDADE, 
REM IR: NUMERO DE FRASES, 
REM IH: NUMERD DE HIPOTESES. 


REM IT: NUMERO DE FATOS. 

REM RG: NUMERO DÊ REGRAS. 

REM RS: NUMERO DE REGRAS REL . 
EVANTES. » 

REM MARIE ILIESR IE IE SETE IE TREE ET 
REM == ESPECIALISTA ==a= 

REM 

DIM FR$SCiga), HIF(ZO) 

DIM FT(100), ENSA (SO) 

DIM RL (50),STe4100) 

DIM AN(50) 
IR = O:1H = O:IT = oO 
RE = RS = O 

HOME 


PRINT ” ++ SISTEMAS "is 


PRINT "ESPECIALISTAS ex" 


PRINT "ESCOLHA UMA DAS “5; 
PRINT "POSSIBILIDADES '"'; 
PRINT “ABAIXO” 

PRINT : PRINT 

PRINT" A — INICIALIZAR" 
PRINT” B - LER FATOS DO T 
ECLADO" 

PRINT ” LEITURA DE FAT 
OS E* GPTATIVA” 

PRINT " E - LER HIPOTESES 
DO TECLADO" 

PRINT " D - LER REGRAS DO 
TECLADO” 
PRINT " 
DISCO” 
PRINT ” 


LER REGRAS DO 
GRAVAR REGRAS" 


PRINT " 
OTESES" 
PRINT 
DE FATOS” 
PRINT" I — ESVAZIAR LISTA 
DE HIPOTESES" 

PRINT" gy —- ADICIONAR NOVA 
S REGRAS" 
PRINT ” 


INVESTIGAR HIP 


ESVAZIAR LISTA 


K — IMPRIMIR FATOS 


PRINT ” L - ABANDONAR PROG 
RAMA" 

GET Ag 

OP = ASC (Ag) - 44 

IF (OP S 15 OR (COP > 12) THEN 
1130 

ON OP GOSUB 2000, 6500, GU0O, 
7000, 2800, 2600, 1240, 12000, 12 
100, 7020, 12200 

IF OP « 12 THEN t046 

REM EMAILILICIE SIR IRIS RR E RE 
END 

REM ese see e RR Rr SE 
REM RESETE SO RIR RR e 
REM == PROVEUMA ======> 

IF IH = O THEN PRINT “Não 
TENHO HIPOTESES PARA TRABALH 
AR.": PRINT “VOCE NAQ PODERI 
À ME FORNECER ALGUMAS?"2 GÚSUB 
4000 

IF R6 = O THEN PRINT "Nao 
TENHO REGRAS PARA TRABALHAR. 
“7 PRINT "VOCÊ N29 PODERIA M 
E FORNECER ALGUMAS?": GOSUB 
PÁvINTO) 


1260 
1270 
1280 
1290 
1300 


ti3z1o 


1320 


isso 
1340 
1356 


1900 
1950 
2000 


2610 
Bolo 


2880 
2390 
2600 
2601 
2605 
2610 
2415 
2620 
2625 
2630 
BbIs 
2640 
2643 
2650 
2h65 
2670 
2790 
2795 
2800 
2803 
2B10 
2815 
2820 
2823 
2B30 
2835 
2840 
2845 
2055 
2850 
2870 


2900 
3000 
goto 
s020 


3036 
3040 


30506 


3040 
S070 
sSoB0 


3094 
s100 


3900 
4000 
4010 


4020 
4030 
4040 
4050 


4060 


4070 


4980 
4106 
4906 


4910 


3000 


sol) 
SoRo 
SC 


SOM 





FOR EJ = 1 TO IH À 


H = HIPCIJ): GOSUB 3000 


IF T2 = 1 THEN IJ = GaH 

NEXT IJ 

IF TZ = O THEN PRINT "NENH 
UMA HIPOTESE PODE SER VERIFI 
CADA” 

IF TZ = 1 THEN PRINT "A HI 
POTESE "FFRBIH);" E” VERDADE 
IRA” 

PRINT "APERTE QUALQUER TECL 
A PARA CONTINUAR” 

GET As 

RETURN 

REM ESC DEIILJESEIE SEDE ERES DL SL RE IE 


REM SMILIES AE IR e e e 
REM ROTINA DE INICIALIZAR 
IR = O!IH = O!:IT = O!RE = O! 
RS = O:PT = 0 

RETURN 

REM SEMSE ILAEIO IO DE IRA SE IE IEL SEE SEI 


REM e SIRI EE TE EE RE e a e gr 
REM == GRAVA REGRAS ; 
D& = CHR& (4): REM ETRL-D a 
PRINT D& 

PRINT D3; "OPEN REGRAS" 
PRINT DM; "WRITE REGRAS" 
PRINT RG: PRINT IR 

FOR 1 = O TO IR 

PRINT FR$&CIS 

NEXT 1 

FOR 1 = O TO RG 

PRINT CNSO(TID): PRINT ANtCI) 
NEXT I 

PRINT D&; "CLOSE REGRAS" 
RETURN 

REM SEIS III e 
REM SEMSE SEEC SESI IE E RA E 
REM == LER REGRAS DO DISCO 
Dê = CHR$ (4) 

PRINT D$; "OPEN REGRAS" 
PRINT Dê; "READ REGRAS" 
INPUT R67 INPUT IR 

FOR I = O TO IR 

INPUT FRECIS 

NEXT 1 

FOR 1 = O TO RB 

INPUT CNSG(ID: iNFUT ANCI) 
NEXT 1 

PRINT Das "CLOSE REGRAS" 
RETURN 

REM SECCO SE ROSE E EIS RIDE IE 


REM MACIEL SEI IR SERIE e 
REM == DESCREVE RACIOCINIO 
PRINT “USANDO A REGRA!" 
PRINT FR$(CNSO(RL(J)))35"! SE 

: 

FOR K = 1 TO NA 

PRINT "IFRE(CNSO (RL (ID) + 
ks 

IF €K 

id | 
NEXT k 
PRINT 
PRINT "CONSEGUI PROVAR QUE 
“IFRELCNSQERL (9))) 

RETURN 

REM see IE SER RIR IE de e e E 


NA) THEN PRINT" E 


REM RELEASES 
REM == INVESTIGUE ===== 
PRINT "A HIPOTESE ABAIXO E* 
VERDADEIRA? (S/N)” 
F& = FREC(H) 

PRINT F& 

INPUT RESF'$ 

IF RESPS = "S” THEN GOSUB 
P000:T2 = 1: RETURN 

IF RESP& = "N" THEN T2 a Os! 
GOUSUE 8000: GASUB 9900: RETURN 


PRINT “POR FAVOR, RESPONDA 

Ss Ou Nr 

GOTO addo 

REM MME IEEE RR e e e 
REM RIR ECC IR RE E 
REM == VERIFIQUE 

REM VERIFICA SE HIPÓTESE E 
VERDADEIRA: ARGUMENTO EM H 


REM RESPOSTA ÉM TZ 
Eg = FRE(H): GOSUE B5Ço 

IF Ti = 1 THEN T2=1: G0T0 
TS) 

GOSUB BOCO: GOSUE AS00 





PROGRAMAS QUE RACIOCINAM 


(continuação Listagem 2 - BASIC) 


OU7ZO REM RICCI GEIEIEIC RIO DO e dee 7560 REM sm stabs det dear aeee ae Sa ILS 
JOSO IF Ti = 4 THEN TZ =0 GoTa 
SSI 5490 REM ERIC II ILS . ZOO REM Me Rr tar e de 
5060 REM 6500 REM == LER FATOS == E&ouo REM === NEG ===== 
5070 GUSUB 7500 6510 PRINT "QUAL E” O FATO?": INPUT 8010 REM PARAMETRO EM FS 
5080 REM E& 9020 IF LEFT$ (F$,4) = “NÃO " THEN 
«BOP0 IF RS =O THEN GOSUE AGOU: 6530 IT = IT + L:IR = IR+IFRSC Fê = RIGHTS (FS, LEN (F$) — 
— BOTO $330 IR) = F$:FT(IT) = IR 4): RETURN 
0% Jim à 6540 PRINT "VOCÊ QUER LER OUTRO Bos0 ES = “NAU * + F$: RETURN 
at00 REM FATO? (S/N) BICO REM SMILE SRT ILE SIE SEE STE E | 
S11Q NA = ANCRL(I)) ASSO GET RESPS | 
sitS E = 1 &555; IE (RESP$ < » “B%) AND (RE B4PO REM RICE MIEIE ICE SE ear de 
S120 REM seg « » “Nº) THEN GOTO 455 84935 REM == MEMBER == E 
Ssi30O PT = PT + IISTIPT) = H:PT = o 8500 REM MEMBER VERIFICA SE F$ ! 
O PT + LISTIET) = 3 6560 IF RESFS = "S" THEN 6510 ESTA" NA LISTA DE FATOS. RE 
S144 FT = PT + 1IST(PT) = KIPT = 6565 RETURN SPOSTA EM Ta. 
PT + IISTCRT) = NA 8570 REM MIRA IICT IEEE IR 9510 Ti = q 
3150 FOR Ji =0TORS 8520 FOR Ii=1TOIT 
5160 PT = PT + L:STEPT) = RLL) 7000 REM == LER REGRAS == 8530 IF FREtFT(IIM = Fé THENII 
S1720 NEXT gli 7005 PRINT = ITifi=t 
S180 PT = RT + L:ST(PT) = R$ 7010 RB = 6 8540 NEXT II É 
4190) H = CNSD(RL()) + K: GOTO 50 7020 FRINT "TODAS AS REGRAS DEVE 8550 RETURN À 
[874] M TERMINAR COM ." Bãdo REM SESSEIIIEICIL SETE SESI SE SESC SERIAM i 
J2Z00 RS = ST(PT):PT = PT —1 7030 PRINT "TECLE A REBRA.'': INPUT : 
210 FOR J1 =KSTGOSTEP -1 BUS 5700 REM REI ES SE E e at | 
S220 RLtJI) = ST(PT)H:PT = PT 1 7040 GOSUE LIÓGO 9000 REM GUARDA FATO. RESPOSTA ) 
S230 NEXT ql 7050 RB « RG + 1:IR = IR + t:FRS$St EM Ti. ARGUMENTO EM Es 
5240 Ná = ST4PT)IPT = PT - 1 IF) = FS$:CNSC(RG) = IR GÚLO GOSUE 850) 
5250 K = STt(PTDIPT « PT - 11] =5g 7060 NA = O 9020 IF Ti = 1 THEN RETURN 
T(PTDLPT = PT-A ZO70 GÓSLUE 11900 9030 REM 
3260 H = ST€PT):PT = PT -1 7080 IF FS4 = "" THEN INPUT "ECO 9040 REM e 
5270 IF T2=0oTHENK =ãNAa NT, DA REGRA “SEUS: BOTO 707 9100 IR = IR A+1:21ITsITA+ti 
Ê 5280 & = & + 1: IF K< = NA GOTO [v) 9140 FRECIR) = FS:FT(IT) « IR 
S1zZ0 7090 IF ES8 < put THENNA SAN P1ZO RETURN 
S2P0 IF T2=h1 THEN GOSUB ZUDO: AA IRS IRA+tERECIR)= P20O REM A IEILAHEIEIC IE IE SEIS RE E 
| J = RS FSt; BOTO 7074 PRO REM MASLICICEIEIIE IE IRL E R 
3300 3 = J+ 4 IF J< =RS THEN PLOC ANCRG! = NA ÍGG0O REM == ANALISADOR LEXICI) 
5100 7110 PRENT “VOCE QUER LER QUTRA iOOLU URS = nu ; 
5330 IF PT > 1 THEN SzZ00 REGRA? (S/Nº ldoZo IF LEN (BUS) = O THEN RETURN 
5340 RETURN VIRO GET RESP$ | 
BAOO REM SE RIEIEIEIICICIEIILI IE E E 7125 IF (RESP$ << > "gr) AND (RE tOG3O CH$ = tEerTS (BUS, 1) : 
5500 REM xt seara e se ste dee SP& 2» "Ny THEN GOTG 712 1ÍOÓZS IF LEN (BUS) > 1 THEN BUS 
000 REM LER HIPOTESES . ÉS) = RIGHTS <BUS, LEN (ELU$S) — 
j 6005 1H = O 7130 IF RESFã = “S" THEN GOTO 7 1): GOTO 10040 
Í 6414 PRINT “QUAL E” A HIPOTESE?” o30 100Z4 BJt = "e" 
= INPUT Hg 71Z5 RETURN 10040 JF (CHE = “o ry AND < LEN ( 
SoJO IH = IH + 1:IR = IR+AFR$: PROO REM Je de TESES RICE RICCI BUS) > 0) THEN GOTO 10030 - 
IR) = H$:HIPCIH) = IR TAGO REM SCRAICILIEI MESES e ee 10050 IF ASC (CH$) < 33 THEN RETURN 
6040 PRINT "VOCE QUER LER OUTRA 7500 REM == RELEVANTES == 
HIPOTESE? (S/N)* 510 RS = O 10060 IF tEN (BJS) = Q THEN WR$ 
| 6000 GET RESP$: IF (RESP 2» 7520 FOR 1 =OTORG = (CH$: RETURN 
q") AND (RESPS < > "Nº5 THEN 7530 IF FREC(CNSQCI)) = FR$CH) THEN 10070 WR$ = CH$ 
Í - 4050 RS = RS + 1:RL(RS) = 1 10080 FF WURS =", THEN RETURN 
| 6040 IF RESP& = "9º THEN 6010 2580 NEXT E 
4063 RETURN 7550 RETURN LOGGO CHE = tEFTS (EUS,I) 





((PROVELIMA (CDA RLS))) 3) 


(COND (INULL ANTEC)T) 
(DEFINE (DEF (FLAMBDA (5) 


CIVERIFIQUE (CAR ANTEC)) (VERDADE TRAS (COR ANTEÇ))) )) 
(PUTICAR S)'EXPR (CONS *LAMBDA (COR 939) ))) 
á 


Listagem 3 - LISP | 
| DEF VERDADEIRAS CANTEL) 
(DEF INVESTIGLE O) 
(ROB IVO) 
tPRINTICHR 7)) 
(DETO VF (GETCHR)) 
(LEND ((EDUAL VF *V) (PRINT * VERDADEIRA) 
(SETG FATOS (CONS HIPO FATOS)) (RETURN Th) 
CCEQUAL VF *F) (PRINT SFALSA) 
(SETG FATOS (CONS (NEG HIPOS)FATOS)) (RETURN NIL)) 
CTIPRINT * (RESPONDA APENAS COM V/F)) CINVESTIGUEM) 1) » 


(DEF ESPECIALISTA (HIPOS) 

(COND (NULL HIPOSINI) 
(UVERIFIQUE (LAR HIPDS)) (CAR HIPOS)) 
(ESPECIALISTA(CDR HIPOS)) )) 


(DEF VERÍFIDUS (HIPO) 
COND ((MENBER HIPD FATOS)T) 
(IMEMSER (NEG HIPD) FATOSINIL) 


(UPROVEUME (RELEVANTES HIPO REGRAS))T) 
à (LSRINTO (PRINT * CINVESTIBUE SEJ) (PRINI HIPO) 


' ) 
(INVESTIGUE)) )) (DEF NEG(H 


(COND ((EDUAL (CAR M) * NEGAÇAO-DE:) (COR H)) 


(CONS * NEGACAD-DE: HJ) 3) 
(DEF SELEVANTES (MIP REGS) E 


(COND CINULL REGSINIL) 
((EDUAL HIPICARICAR REBS))) 
(CONS (CDRICDRICAR (RES) )) 
(RELEVANTES HIPICDR REBS)) )) 
tt tRELEVANTES HIP(CDR REBS))) 3) 


(DEF MEMBERIE L) 

(COND CINULL LINIL) 
((EQUAL ELCAR L)H)T) 
(TIMEMBER E(CDR L))) )) 


(DEF LISTAFATOS (FATOS) 

(COND ((NULL FATOS)) 
(t2RINTICAR FATOS)) 
(LISTAFATOS(CDR FATOS))) 5) 


(DEF PROVELMA (RES) 
(COND CINULL ALSINILO. 
(IVERDADE RAS (CAR RLGS))T) 
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o Listagem 4 - LOGO | 


TD ESPECIALISTA :HIPOTESES 

IF :HIPOTESES = [1 OUTPUT "'PIPOTESES FALSAS" 

IF VERIFIQUE FIAST :HEPOTESES OUTELUT FIRST :HIPOTESES 
DuTPUT ESPECIALISTA BUTFIRST :HIPOTESES 





ivo92 IF LEN (BUS) > 1 THEN AUS 
= RIGHTS «BUS, LEÉN (BUS) — 
1); GOTO 10100 
10100 IF < ASE (CH$) <« 33) THEN 
RETURN 
1O1OS IF CH& = "." TREN BUS = CH 
$& + BUS: RETURN 
10116 WE = WR$ + CH$ 
10120 JF LEN cEUS) = O THEN RETURN 








10130 GOTO 10089 
10200 REM master de Ide eae ae e e ae 
1ÓZOS REM SEEC EI DEE SEE E 

















10210 REM ANALISADOR SINTATICO END 
11000 ES$ = "1 
11010 GDSUB 10000 
14015 JE WR$ = "SEº OR URS = “Er TO VERIFIQUE “HIPO 
Mideo- a Una e ui env RETURN 1F MEMBER sHIPO :FATOS OUTPUT “TRUE 
HO o e RETU IF MENBER ( NEG :HIPO ) sFATOS OUTPUT “FALSE 
da NE E ea IF DROVEUMA ( RELEVANTES sHIPD REGRAS ) CUTOUT “TAUE 
11050 IF WRS = "“ QRWRS< "SE”OR CLERRINPUT PRINT" 
rose PE E” THEN RETURM (PRINT * INVESTISUE SE* :HIPO ) 
“ + BUS: RETURN OUTPUT INVESTIGUE “HIPO 
11070 FS8 = FSS + “ “+ WAS 






END 







11080 GDTO iiõso 
11100 REM se 363 SEMESTRE IE E 


21110 REM MSIE PEIES SE SEE SE SEE 

i2C0G REM ESVAZIA LISTA DE FATO 
s 

120160 IT = O 

12020 RETURN 

IZOSO REM SSI IES Ira O de de are 






TO RELEVANTES :HIP sREGS 
IF :REGSS = [3 OUTPUT 13 
IF :HIP = FIRST FIRST :REDS CR FOUT BF Br FIRST :REGS RELEVANTES sHIP BF :REGS 
DUTPUT RELEVANTES 2HIP BUTFIRST :REGS 

END 







12040 REM RICE JEI e Te e See 

12100 REM ESVÁZIA LISTA DE HIP 
TESES 

132110 1H = O 

12115 RETURN 

12150 REM III ESEC ICI EI SR 











TO PROVEUMA :RLS 
IF :RLS = (3 OUTPUT "FALSE 
Ir VERDADEIRAS FIRST :RLS OUTPUT "TRUE 
OUTPUT PROVEUMA BUTFIRST :RLE 
END 







12200 REM AESEIEICIELIEIER ERIC IE Sta 

12220 REM === LISTAFATOS ====== 

iS220 FOR I=1TÓIT 

12236 PRINT FRSCET(I)+ 

12240 NEXT II 

12245 PRINT "APERTE QLSLOVER TEC 
LA PARA CONTINUAR" 

iz246 BET As 

12250 RETURN 

12260 REM FME III sa 











TD VERDADEIRAS :HIPS 
IF :KIPS = [) OUTPUT “TRUE 
IF VERIFIQUE FIRST :HIDS QUTPUT VERDADEIRAS? BUTFIRST :MIPS 
OUTPUT “FALSE 
END 








O programa BASIC pode ser usado 
sem modificações no Apple e, com pe- 
quenas modificações, no TRS-80 e no 
Sinclair. A primeira destas modificações 
é substituir os comandos GET por co- 
mandos INKEYS$. Assim, o comando 
GET A$ da linha 1180 deve ser substi- 

tuído por 






TO INVESTIGUE sHiP 
PRINT! CHAR 7 
MAKE "VE READCHARACTER 
IF aVF = “V PRINT "VERDADEIRA MARE "FATOS F2UT HIP FATOS OUTPUT "TRUE 
IF VP = "F PRINT "FALSA MAKE "FATOS FOUT ( NEG sHIP à sFATOS OUTPUT “FALSE 
PRINTI CRESPONDA APENAS COM V/F:] 

OUTPUT INVESTIGUE HIP 
END 









1180 AS = INKEYS: IF 
AS = "" THEN 1180 











TO NEG «5 
l* FIRST 1h = "NEGACRO-DE: OLTPUT BUTFIRST sh 
QUTPUT SENTENCE "NEGACAD-DE: :H 

END 


As sub-rotinas 2600 e 2800 são usa- 
das, respectivamente, para gravar regras 
! em disco e ler regras do disco. O que a 
! sub-rotina 2600 faz é simplesmente gra- 
| var as variáveis RG e IR e as matrizes 
FR$, CNSQ e AN no disco. Já a rotina 
2800 recupera estas mesmas matrizes e 
variáveis. Ora, comandos de leitura e gra- 
vação variam enormemente de computa- 
dor para computador. Isto significa que, 
se seu computador não for Apple, você 
deve reescrever estas duas sub-rotinas. 
Após ter digitado o programa, você 
deve introduzir as hipóteses e regras no 
computador. Se você estiver usando LISP, 
tecle (SETQ HIPOTESES (READ) e 
em seguida tecle as três hipóteses da Lis- 
tagem 1. Se você estiver usando LOGO, 
tecle MAKE “HIPOTESES e em segui- 













TO MEMBER 3E e. 
IF sl = [) DNPUT "FALSE 
IF :E = FIRST Li OUTPUT "TRUE 
OUTPUT MEMBER :E BUTFIRST sl 
END 







| 
| 










TO LISTAFATOS :FATOS 
IF sFRTOS = [3 STOP 
PRINT FIAST «FATOS 
LISTAFATOS BUTFIRST :FATDS 

END 








MICRO SISTEMAS, maio/84 17 








! 
! 
: 
i 
í 


PROGRAMAS QUE RACIOCINAM 


da entre com as hipóteses da Listagem 1, 
substituindo os parênteses redondos por 
parênteses quadrados. A introdução das 
regras-é análoga: em LISP, tecle (SETQ 
REGRAS (READ)), seguido das regras 
da Listagem 1; em LOGO, tecle MAKE 
“REGRA, seguido das regras da Listagem 
l 


O programa BASIC é dirigido por um 
menu, Tecle RUN e o menu ser-lhe-á apre- 
sentado, Escolha a opção C e o progra- 
ma lhe pedirá uma hipótese. Tecle a pri- 
meira das hipóteses da Listagem 1 sem os 
parênteses e sem qualquer marca de pon- 
tuação. O programa perguntará se você 
quer ler outra hipótese. Responda S e 
tecle a hipótese seguinte. Após teclar as 
três hipóteses, pressione N e o menu se- 
Tá recolocado na tela. Escolha a opção 
D e o programa pedirá uma regra. Come- 
ce a entrar com as regras da Listagem 1 
sem os parênteses e obedecendo às se- 
guintes restrições: 

1 — o consegiiente deve ser separado 
dos antecedentes por SE; 

2 — os antecedentes devem ser separa- 
dos um do outro por E; 

3 — todaregra deve terminar com ponto. 
A terceira regra, por exemplo, deve ser 
teclada assim: 


A GRALHA ROÓUBOU O 
COLAR SE A JANELA 
ESTAVA ABERTA E O 
COLAR ERA 
BRILHANTE E 
GRALHAS GOSTAM DE 
COISAS BRILHANTES. 


Para que o programa BASIC comece 
a investigação, basta escolher a opção G 
do menu. Para iniciar a investigação em 
LISP, tecle (ESPECIALISTA HIPOTE- 
SES). Em LOGO, a investigação terá iní- 
cio quando você teclar (ESPECIALISTA 
: HIPOTESES). 








CIGANOS SEMPRE USAM BOTAS 
“s 


APENAS CIGANOS USAM BOTAS 
ºN 


A CAMAREIRA GASTAVA MUITO 
28 


O SALARIO DA CAMAREIRA ERA BAIXO 
75 


28 
USANDD A REGRA: 
A CAMAREIRA GANHAVA POUCO SE 
O SALARIO DA CAMAREIRA ERA BAIXO 








a hipótese é falsa. 


- veracidade de uma hipótese. 


APLICAÇÕES PARA 
O PROGRAMA DETETIVE 


As hipóteses e regras dadas na Lista- 
gem 1 foram escolhidas para que o pro- 
grama resolva o mistério apresentado em 
La gazza ladra. A história da gazza ladra 
foi aproveitada pelo músico Joaquim 
Rossini para compor uma ópera e pelo 
desenhista Hergé para a aventura de Tin- 
tin denominada As jóias da Castafiore. 
Na aventura de Tintin, ciganos que esta- 
vam acampados nas proximidades da 
mansão do capitão Haddock são acusa» 
dos injustamente de roubarem o valioso 
colar da soprano Castafiore. O herói Tin- 
tin, porém, usando raciocínio regressivo, 





A HIPÓTESE ABAIXO E” VERDADEIRA? (S/N) 


A HIPOTESE ABAIXO E” VERDADEIRA? (S/N) 


À HIPOTESE ABAIXO E” VERDADEIRA? (S/N) 


A HIPOTESE ABAIXO E" VERDADEIRA? (S/N) 
A UNICA FONTE DE RENDA DA CAMAREIRA ERA D SALARIO 


E A UNICA FONTE DE RENDA DA CAMAREIRA ERA O SALARIO 


Listagem 5 - Exemplo de execução 





USANDO A REGRA: 


A CAMAREIRA PRECISAVA DE DINHEIRO SE 
A CAMAREIRA GASTAVA MUITO 
E A CAMAREIRA GANHAVA POUCO 


USANDO A REGRA: 


A CAMAREIRA ROUBOU O COLAR SE 
fà CAMAREIRA PRECISAVA DE DINHEIRO 
E ERA FACIL VENDER O COLAR 


CONSEGUI PROVAR QUE A CAMAREIRA ROVJBOU O COLAR 
A HIPOTESE A CAMAREIRA ROUBOU O COLAR E* VERDADEIRA 
APERTE QUALQUER TECLA PARA CONTINUAR 


O algorítmo VERIFIQUE 


: Passo 1 — Examine se a hipótese está nã lista de fatos. Se estiver, ela é 
" verdadeira pois, como disse Aristóteles, contra fatos não há argumentos. 


“- Passo 2 — Examine se a negação da hipótese está na lista de fatos. Se estiver, 


“, Passo 3 — Construa a lista de todas as regras cújos conseguentes sejam iguais 
à hipótese. Estas regras, conforme vimos, são relevantes para demonstrar a 


« Passo 4 — Entre as regras relevantes, tente encontrar uma cujos antecedentes 
sejam todos verdadeiros. Se você conseguir, a hipótese é verdadeira. E como 
demonstrar que todos os antecedentes de uma regra relevante são 
verdadeiros? Simplesmente usando o algóritmo : VERIFIQUE! 


» Passo S — Se não houver nenhuma regra relevante não será possível concluir 
pela veracidade ou falsidade da hipótese usando processos dedutivos. Neste 
caso, o sistema especialista deve pedir ao usuário que investigue se a hipótese 
é verdadeira ou falsa. Aqui ele se assemelha ao detetive Nero Wolf que, por 
Ser muito gordo, não podia sair de casa e pedia a seu assistente que 

- investigasse tudo quanto não era possível deduzir. 


CONSEGUI PROVAR QUE A CAMAREIRA BANHAVA POLCO 


CONSEGUI PROVAR QUE A CAMAREIRA PRECISAVA DE DINHEIRO 
A HIPOTESE ABAIXO E* 
ERA FACIL VENDER O COLAR 
A HIPOTESE ABAIXO E” VERDADEIRA? (S/N) 8 



















descobre que uma gralha, atraída pelo 
brilho da jóia, entrou no quarto e levou 
o colar para seu ninho. 

O leitor, substituindo as hipóteses e 
regras da Listagem 1, poderá fazer seu 
computador resolver outros mistérios. 
Assim, o computador poderá represen- 
tar o papel de Guilherme de Baskerville 
em O nome da rosa ou de Hercule Poi- 
rot em O assassinato no Expresso Orien- 
te. Para que a máquina tenha êxito, en- 
tretanto, é necessário escolher as regras 
rigorosamente. 

A escolha cuidadosa das regras é tão 
importante que surgiu nos Estados Uni- 
dos um tipo de profissional, o engenhei- 











VERDADEIRA? (<5/N) 
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ro de conhecimento, cuja única função é 
escolher as regras. O engenheiro de co- 
nhecimentos entrevista médicos, jogado- 
res, geólogos ou químicos e tenta trans- 
formar a experiência em regras que se- 
rão usadas por programas especialistas. 
A seguir fornecemos algumas dicas de 
como escolher as regras. 

Para tornar a investigação emocionan- 
te, é preciso criar regras que usem outras 
regras. Regras para cuja comprovação é 
necessário usar outras regras forçam o 
computador a um raciocínio indireto e 
isto torna o processo de dedução muito 
interessante. Tentemos esclarecer este 
ponto com um exemplo. Se quero for- 
necer ao computador meios de provar 
que (A CAMAREIRA ROUBOU OQ CO- 
LAR), posso simplesmente colocar a re- 
gra: 


A investigação, porém, tornar-se-á 
muito mais interessante se fornercemos 
uma regra que permita deduzir que (A 
CAMAREIRA PRECISAVA DE DI- 
NHEIRO). Esta regra poderia ser: 


(CA CAMAREIRA PRECISA 
DE DINHEIRO) SE (A 
CAMAREIRA GASTAVA 
MUITO)) 


E à emoção aumentará se fornecermos 
ao computador a seguinte regra para pro- 
var que (A CAMAREIRA GASTAVA 
MUITO): 


( (A CAMAREIRA GASTAVA 
MUITO) SE (A CAMARETRA 
COMPRAVA OBJETOS CAROS 


((A CAMAREIRA ROUBOU OQ 3) 


COLAR) SE (A CAMAREIRA 
PRECISAVA DE DINHEIRO) 


) Na listagem 5 temos um exemplo de 


execução do nosso programa detetive. 


As funções do programa especialista 


- À função ESPECIALISTA recebe uma lista de hipóteses e, usando a função 
VERIFIQUE, tenta encontrar uma que seja verdadeira. | 









- À função VERIFIQUE recebe uma hipótese e, fazendo uso dos cirico passos 
já descritos, descobre se cla é verdadeira ou falsa. 






- À função RELEVANTES seleciona dentro -da lista de regras todas as regras 
relevantes da hipótese que recebeu de VERIFIQUE. ; 






- À função PROVEUMA executa 0 passo 4, isto é, tenta provar que uma das 
regras relevantes é verdadeira. 













- À função VERDADEIRAS é a mais simples e interessante. Ela entrega para a 
função VERIFIQUE uma antecedente para ser provada (da mesma forma que 
ESPECIALISTA entrega uma hipótese). Note que VERDADEIRAS faz 

uso de todo programa e, portanto, de si mesma. No programa BASIC, . 
VERDADEIRAS foi incorporada a VERIFIQUE. 








- À função INVESTIGUE executa o último passo, a saber, recorre ao usuário 
para decidir se a hipótese é verdadeira ou falsa. 






- À função NEG recebe uma hipótese ou um antecedente e retorna sua 
negação. 






- À função MEMBER verifica se uma hipótese está na lista de fatos. 





[e] 
(8 
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PER cid 25 BrANDS PR RE . 


você € seu 
micro 








Um relacionamento assim 
merece um programa exclusivo 







e A Informatic Service desenvolve 
programas conforme suas neces 
sidades. 












; R F : ei a a o te is E ade ÉS arado 
VE q pi ma 0 LA 4 a AS Ls TETRA (a mA a in E 











Presta-lhe total assistência através 
de uma Assessoria de Sistemas 
exclusiva. 











Promove a relação 
Homem-Software-Máquina 
de forma perfeita 






repre 


Consulte-nos ainda hoje. 


INFORMATIC SERVICE DO 
BRASIL 
Av. 13 de Maio, 47 - grupo 2707 


Fone: (021) 262-8769 - RJ 
A CIÊNCIA MODERNA 
COMPUTAÇÃO 


A Unica Especializada em Livros 

e Revistas p/ Microcomputação 

Publicações pABM PC/XT e Similares: 

IBM PC EXPANSION AND SOFTWARE GUIDE 

(QuBt BZE seis Aus aie de 
SPREADSHEET SOFIWARE FROM VISICALC 
70 1.2.3. (Que) ana RR 
GRAPHICS FOR THE (BM PC (Koriles) 
acompanha diskette E EE RD ed e abria 
100 READY-TO-RUN PROGRAMS AND. 
SUBROUTINES FOR THE IBM PC (Bretzp 
BUSINESS APPLICATIONS FOR IBM 

. PERSONAL COMPUTER (Zimerman). ..... 
HOW TO-GET STARTED WITH MS-DOS 
(townsend) .... 


USEFUL BASIC PROGRAMS FOR THE IBM PE 

(Trost) ...: 

IBM BASIC (Payne) 

IBM'S PERSONAL COMPUTER 2ND- EDITION + 

INCLUDES XT (Que) 

ADVANCED BASIE AND BEYOND FOR THE IBM 

PC (Goldstein) 

SOFTWARE -SOLUTIONS FOR THE IBM PC 

A Practical Guide to Dbase Il Lolus 12.3 

Visicalete. (Wiimoil) 

* IBM DATA FILES: À Basic Tutorial (Miller)... 

* HANDBOOK OF BASIC FOR THE IBM PC 
(Schneider)... o 

e PC DOS USING THE |JBM PC OPERATING 
SYSTEM (Ashley)... 

* 18M PC DATA FILE PROGRAMMING 
(Brown; .......... E pci efe ARA 










41.527.00 
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12.977.00 
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39.077.00 






+ 






48.877,00 











36.627,00 
23 125,00 






48.877,00 





36.627,00 








36.627,00 










Visite-nos Du peça uma listá do ; 
“nosso estoque especifica. para sêu micro, 






Atendemos também por Reemb. Postal e Varig. 





Av Rio Branco, 156 — toja 127 — subsolo 
Rio de Janeiro — Tels. 262-5723/240-9927 





Corrigir provas não é mais problema... 


Deixe isso por conta dos micros da linha TRS-80 modelo Il! 








Corrigindo 
provas no micro 


ste programa corrige e calcula as 

notas de até duzentos alunos 

por turma, de provas também de 

até duzentas questões. Para cada 
turma corrigida é criado um arquivo em 
disco ou fita, onde são gravados os no- 
mes dos alunos e suas respectivas notas. 
Estes arquivos poderão sér listados no 
vídeo ou na impressora. 

O programa se apresenta dividido em 
três partes. A primeira envolve a monta- 
gem do gabarito de respostas, à correção 
das provas dos alunos e a criação do 
arquivo por turma. A segunda parte é re- 
lativa à listagem dos arquivos existentes 
em disco ou fita. A última possibilita a 
transferência de arquivos entre discos, 
fitas, e entre disco e fita (c vice-versa). 

Como este programa ocupa uma 
grande área de memória, somente micro- 
computadores com 48K RAM é que po- 
derão suportá-lo. Para sistemas operacio- 
nais diferentes do DOS-500 e do 
TRSDOS (do TRS-80), algumas modifi- 
cações poderão ser necessárias nas roti- 
nas relativas à leitura-gravação de arqui- 
vos em disco. Para isto, sugiro que você 
consulte scu manual referente ao siste- 
ma operacional. 

Para carregar o programa, utilizamos 
o comando RUN ou CLOAD. Após isso, 
indicamos a tarefa que desejamos reali- 
zar, isto é, criar, listar ou transferir. De- 
vemos teclar uma das três letras €, L ou 
T, de acordo com o trabalho a ser efe- 
tuado, ou então teclamos FIM para ter- 
minar O processamento, se for o caso. 


20 


A E a gua 
Lawrence Falconer King 
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Correção de Provas 


mm 










10 REM o cm o tm mm es 4 DU dE Som ló GS SR AS US DS 2 ii O Uai E Re mt Si 
2) REM = ROGRAMA DE CORRECÇÃO DE PROVAS = 
30 REM = AUTOR: LAWRENCE FALCONER KING = 
40) REM = TESOURA) AG-AVIS = 
30 REM Ez PETROPOLIS/RJ = 
à) REM o RERSESEENSEETESNDETSSUNA GE mimada 


80 CLEAR 10000 

85 VLM MEÇ20D,4), 1X(20D) , 

90) MLT="CLASSIFICAR POR CAJLUNO OU POR C(NDOTA PY 

10D AS=CHRECI4) 

ii G6=70“ 

4140 CLSFPRINT TARCRO) PROBRAMA DE CORRECAO DE PROVAS” 

480 INPUT “(CIRIAR , €L)ÍSTAR OU (TI TRANSFERIR” p Tb TE T6="F EM” THEM CLS: 
END ELSE TEsLEFTOCTS,d) 

1650 TE T6="L"7 GOTO 1080 ELSE IF Ta=70% GOTO 200 ELSE IF Tt&=T” GoTO 116 

O ELSE GOTO 150 

1720 REM 

i75s REM ano q O AO SD DS LDU LS NOR AD (HE AGU DO OR O Et a iG SS 

180 REM ROTINA DE CORRECAO E CRIAÇÃO DOS ARQUIVOS 

18% REM es OT RT EG DT AS E q E 

19) REM 

2u0 REM 

210 REM PELA DADOS DE ENTRADA 

asi REM 

230 GÓBUB 2500 

2840 REM 

230 REM MONTAGEM DO DABARITO 

260 REM 

265 HAB="GABARITO DA DISCIPLINA DE “Ho poNMS HIS" QUESTAO” :H46=" RESPOSTA 

e 5 Xat 

PZQ JF Gh=/F” CLEBsSPOR 1=1 TO NQIMBCI,4)=7072NEXT LEPRINTOS OD, OUTRO GABAR 

ITO (S/N) Pp INPUT R$STF LEFTE(R$, L)=]N” GOTO G00 

2B0 CLS 

290 PRINTO LOSINTOLENC(NME) 2), "MONTAGEM DO GABARITO DA DISCIPLINA DE “: 

NHS 

300 E=i 

SO PRINTOLZI3,Y “LPRINTO 146, “ENTRE RESPOSTA DA QUESTAO”; Ls 

920) INPUT MECL,OETF LENCMBCT,0))=0 GOTO JÍQ 

a30 LE MSCL,O)CFEM! THEN GOTOB40O ELSE GOTO 390 













ij 
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340 I=l+í 









350 GOTO 310 
PARA (C)RIAR O Rr 
370 REM VERIFICACÃO DO GABARITO 
390 NQs If 
Se teclamos C, o programa entra na AUD CLS 







440 PRINT TAB(Z0)”A PROVA TEM “s NA QUESTOES” 
420) PRINT TABCZLS” CONFIRA-AS NOVAMENTE 
430 FOR L=í TO P0D:NEXT LICLS 


rotinã de criação de arquivo, que, por 
sua vez, é dividida em várias sub rotinas: 












entrada de dados, montagem do gabari- 440 REM 

to, correção das provas dos alunos, clas- 450 REM MOSTRE GABARITO NO VIDEO POR PAGINAS 
GRE 460 REM 

sificação da turma por aluno ou por no- 470 Y=0 







ta, gravação da turma em arquivo de dis- 
co ou fita e índice de aproveitamento 
das questões. 


480 GOBUB 49790 
490 CLS:PRINTA ES INTELENCNMS) 22), “GARARITO PARA à DISCIPLINA DE “sNME; 
MONTADO”; 2FOR L=0 TO 9002NEXT LEGg="E” 










500 REM 
Na primeira sub-rotina, devemos en- 510 REM CORRECÃO DAS RESPOSTAS DOS ALUNOS 
go E 520 REM 
trar com vários dados necessários ao 530 4=0 
processamento. Começamos, então, com 540 A=A+i 





S50 CLS 

360 PRINTDAG4, “ENTRE NOME DO ALUNO = 

970 INPUT MoCA, 2): TF LENCM$CA,2))5) THEN E40 

580 IE MECA,2)="FIM” THEN GOTO Bi21) 

SPO IF LEN(M$ÇA,2))529 PRINTOBSS, “NUMERO DE CARACTERERES DO NOME MAIOR D 
O QUE 23, ENTRE NOVAMENTE” FOR L=0TONPODINEXT LigoTo so 

S00 CLS 

610 PRINTO do INTOLENCMEÇA,2))/2), PROVA DO ALUNO “sMELA,O)S 

630 FOR Ieí TO NO 





o nome da turma, que deve ser forneci- 
do como um nome de arquivo válido pa- 
ra o DOS, caso as unidades de disco se- 
jam utilizadas. 











Vejamos, como exemplo, estes dois 
tipos de nome de turma: ISERIE e 











À 
1 SERIE/MAT. No primeiro caso, fica es- 440 PRINTOZAS, “sPRINTO 206,“ENTRE COM RESPOSTA PARA A QUESTAO “51; | 
cificado apenas o nome da turma e pode O Na ED 
ser utilizado se o arquivo de saída é por fi- 690 REM 
ta ou disco, sendo que, neste último, em 700 REM MOSTRE RESPOSTAS DO ALUNO POR PAGINAS 

) 710 REM 






caso de não haver outra disciplina para a 
mesma turma. No segundo exemplo, te- 





720 HiG="RESPOSTAS DO ALUNO “EHBBaMDlA,2)2X=4 
730 Y=02GOSUB 4990 







mos o nome da turma (até o máximo de 740 REM 
sete caracteres) seguido de uma exten- EO GALEUCO DA NOTA DO: ALUNO : 






são composta de “/" e mais três letras 
(ou algarismos, no máximo três caracte- 
res), O que serve para identificar o arqui- 
vo de notas de matemática da turma 


765 RE=0: FOR 1=4 TO Na: IE MBCI,4)CDMGLI,O) THEN 744 ELSE RE=SRC+HÍSM$CI, 
A)=BTRECVALECMBLT,4))41) 

764 NEXT 1 

770 MECA, BI=STRELRUXC4C/NQ)) 

780 GOTO 540 


















940 IF DVg="De GosUB 1420 ELSE GOSUB 1420 
220 IF DVUG="p” GOSUB 1510 ELSE GOSUB í740 






ISERIE, dos arquivos de notas de ou- a Eid Gr o MLS 
tras disciplinas desta mesma turma. BiO REM 
Em relação aos dois exemplos acima, Ea Re SASOSUE Saco + 
* mais conveniente que utilizemos Sem 840 REM MOSTRE NOTAS DOS ALUNOS DA TURMA POR PAGINAS 
pre o segundo, isto é, com a extensão 830 REM À 
(mesmo para arquivos em fita) e que al no 1830 ! 
esta extensão seja uma abreviatura da B80 REM GRAVOLAO DAS NOTAS DOS ALUNOS NO ARQUIVO : 
disciplina. O fato de o nome da turma B$0 REM DISCO OU FITA i 
iniciar por um algarismo é irrelevante 200 REM ; 


para O programa, pois quando é criado 








O arquivo em disco, a letra T é prefixada 930 REM 
ao nome, de modo que, ao se pedir o 940 REM MOSTRE INDICE DE APROVEITAMENTO 
diretório do disco, após a criação do ar- E e DENTES 






quivo, o nome será TISERIE/MAT 
(usando o exemplo acima). 


Entramos, agora, com o nome da dis- 


970 FOR I=1 To NO:MELI, II=STRECVALCMECI,L))XLOO/A) NEXT I 

280 HLB="7INDICE DE APROVEITAMENTO DAS QUESTOES“:H2B=" ":H36="7QUESTAO” :H4 
Ge” KUEX=DE YES 

PO GOSUB 4990 













iplins ovas serã rigidas. Ana REM 
ciplina cujas provas serão cor 8 1040 REM FIM DO PROCESSAMENTO DA TURMA 
Este nome deve ser teclado corretamen- 4020 REM 
te, pois será gravado no arquivo e não 1030 GOTO 140 
derá cor igido. Por últi 1040 REM 
mais poderá ser corrigido. Por último, 1050 REM 
vem O nome do equipamento onde será 10533 REM ERC ssa mesas 
criado o arquivo; teclamos D para disco 4060 REM ROTINA DE LISTAGEM DE ARQUIVOS 
. . 1065 REM DESCI UTI Sans ntsmpemer 
ou F para fita. 1070 REM 







1080 CLS: PRINT q 40, “LISTA NO (VIIDEO OU NA CI)MPRESSORA 9 “52 INPUT OS 
SOS=LEFT$(0S,1) 
1090 IF 084” OR Og=“7” THEN 1100 ELSE 4080 


A próxima sub-rotina é montagem 
dos gabaritos. Aí temos uma facilidade, 
















já que, após ter sido processada uma 1094 REM 
turma, O programa ainda guarda o gaba- o de PECA DADOS DE ENTRADA 
rito anterior e pergunta se, para proces- 1100 GOSUB 2500 
sar uma nova turma, devemos utilizá-lo. ií0A REM 
Caso negativo, teclamos S à pergunta 1iDs REM LEIA ARQUIVO DO DESCO OU DA FITA 
de E , 1406 REM 
sobre a utilização ou não de outro gaba- 1410 IF DV$2“D“ GOSUB 2600 ELSE GOSUB 2780 
rito. 1115 REM CLASSIFICAÇAO POR ALUNO OU POR NOTA 
, , 1120 GOSUB 2430) 

Para montarmos O gabarito, devemos 142% REM SAIDA DOS DADOS NO VIDEO OU IMPRESSORA » 

teclar a letra correspondente à resposta ia 
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correta à questão indicada, seguido de 
ENTER. Quando todas as respostas tive- 
rem sido entradas, teclamos FIM e 
ENTER. Feito isto, na primeira linha do 
vídeo será mostrado o número de ques- 
tões da prova. Todo gabarito será, 
então, enviado para o vídeo em páginas 
com dez questões cada e poderão ser 
conferidas novamente. Para corrigir 
alguma resposta que porventura tenha 
sido introduzida erroneamente, basta 
pressionar qualquer tecla, exceto 
ENTER. Será pedido, na última linha do 
vídeo, que seja fornecido o número da 
questão a ter sua resposta corrigida. 
Após isto, entramos com a resposta cor- 
reta. A página é enviada novamente para 
o vídeo com a modificação realizada. 
Para mudar de página, teclamos sempre 
ENTER. 


Feita a montagem dos gabaritos, pas- 
samos para a correção das provas dos 
alunos. Devemos entrar, então, com os 
nomes dos alunos, os quais não deverão 
ter mais do que 23 caracteres. Caso não 
haja mais provas a serem corrigidas, ao 
invés do nome devemos entrar com FIM 
ENTER. 


Após todas as respostas terem sido 
introduzidas, elas serão novamente mos- 
tradas no vídeo, em páginas de dez ques- 
tões cada. Podemos, então, corrigir a 
resposta de qualquer questão que tenha 
sido introduzida erroneamente, utilizan- 
do o mesmo procedimento usado duran- 
te a montagem do gabarito. A prova será 
corrigida e a nota do aluno calculada pe- 
la seguinte fórmula: 


NOTA=RESP. CORRETAS*(10/Nº QUEST.) 


Vejamos agora a sub-rotina de classifi- 
cação de turma por aluno ou por nota. 
Quando o último aluno for processado e 
teclarmos FIM ENTER, seremos consul- 
tados sobre a possibilidade de arquivar a 
turma, classificada ou não. Se optarmos 
pela classificação, devemos teclar A para 
o caso de ela ser por aluno, ou N, para o 
caso de ser por nota. O número de alu- 
nos da turma será mostrado na primeira 
linha do vídeo e no meio deste a palavra 
CLASSIFICANDO, que ficará piscando 
durante a execução. 


Esta rotina é simples e, considerando 
que foi escrita em BASIC interpretado, 
levará um tempo razoável para ser com- 
pletada. Foram realizados dois testes. 
No primeiro, com uma classificação de 
52 alunos, o tempo requerido foi de 30 
segundos; com uma turma de 211 alu- 
nos, o tempo necessário foi de 30 minu- 
tos. 


Após a classificação, se realizada, a 
turma, Os alunos e as notas, serão mos- 
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1130 
iião 





iíso 
11.60 
1165 
1470 
i1y/3 
1180 
iiga 
ii go 
iiígso 
1190 
1200 
izio 
i220 
1230 
1240 
1230 
idéu 
1270 

















1280 
1290 
ioga 
Lara 
1296 
1300 
i320 
1330 
1340 
isso 
1360 
1370 
1380 
1385 












1440 






1414 
1415 
14146 
1420 
1430 
1440 
14350 
1460 
1470 
1480 
1490 
1500 
4540 
1520 
+530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1420 
1690 
1640 
1650 
1460 
1470 
1680 
4690 
1700 
4740 
1720 
1730 
4740 
1750 
1760 
1770 
1780 
1790 
1800 
-4B1LO 

1820 
1830 
1840 
1850 
1860 


















































IF 08=/V” GOSUH 1830 ELSE GOSBUB 29230 
CLS: PRINTO 10, “OUTRA TURMA PARA LISTAR (S/N) ? 


TSC(R$,1)=75" GOTO 4400 ELSE GOTO 140) 


REM 
REM 
REM se st 
REM ROTE 
REM 2a 
REM 

REM 

REM PELA DADOS DE ENTRADA 

REM 

INPUT “ENTRADA EM <D)ISCO OU CELTA”; LDS: IDG=LEFTSCIDS,1) 

TE I1D$B="D” OR ID$=7F” 42140 ELSE 4190 

INPUT “SAIDA EM tDÍISCO OU CFIITA”;ODBIODS=LEFTSCODE, 1) 

IF 0DB="D” OR OD$="F” 1230 ELSE 1210 

TE ID$="“D” DNG=”" DO DISCO” ELSE DNS=" DA FITA 

PRINT “ENTRE NOME DA TURMA À SER LIDA”;DNS;2 INPUT NTS 

IE 0D6=7D” DNE=” NO DISCO” ELSE ONG=" NA FITA” 

PRINT “ENTRE NOME DA TURMA A BER GRAVADA”; DNS; * INPUT TNS 

INPUT “VOCE QUER SAÍDA CLASSIFICADA (B/N) “sRGIIF LEFTSCRE, 1)="5" T 


HEN PRINT MiB;FINPUT Rib 


IE 1D$="D” INPUTYENTRE NUMERO DO BISCO À SER LIDO“;DIS 

IF 0D$="D” INPUT “ENTRE NUMERO DO DISCO A SER GRAVADO”; DOS 

REM 

REM LEIA ARQUIVO DO DISCO OU DA FITA 

REM 

IF LD$=“D” YHEN DNS=DILG: GOSUB 2650 ELSE GOSUB 2800 

REM 

REM VERIFIQUE SE CLASSIFICAÇÃO NECESSBARIA 

REM 

GOSUB 2470 

REM 

REM GRAVE DADOS EM DISCO OU FITA 

REM 

NTS=TNS:IF 0DG=7D” THEN DNS=DOS:GOSUB 41470 ELSE GOSUB 1620 

LF 0D$=“D” GOSUB 4310 ELSE GOSUB 1740 

REM : 
CLS: INPUT “OUTRA TRANSFERENCIA (S/N)“;R$:IF LEFTSC(R$, 1)="S“THEN GOT 


O 41970 ELSE GOTO 140 


REM es Rr po O mt nm 

REM SUB-ROTINAS 

REM EDEminmeI== 

REM 

REM SUB-ROTINA DE ABERTURA DO ARQUIVO DISCO 
REM PARA BRAVACÃO 

REM 

CLS: INPUT “ENTRE NUMERO DO DISCO(O/1)";DNS 
ARS=/TUANTES 27 +DNS 

OPEN “07 ,1i,ARE 

PRINT Há, NTE77,;NMG 


RETURN 

REM 

REM SUB-ROTINA DE GRAVAÇÃO DO ARQUIVO DE DISTO 
REM E SEU FECHAMENTO 

REM 


CLS:PRINTO460,76 RAVANDO DADOS NO DISCO” 
FOR I=í TO A 

PRINT Hi ,MECIXCI),2)27,CeMECIXCI),3) 

PRINTOS2, USINGCHHRO pI; 

NEXT TI 

CLOSE Hí 

RETURN 

REM 

REM SUB-ROTINA DE ABERTURA DO ARQUIVO DE FITA 

REM PARA GRAVAÇÃO 

REM 

CLS:PRINTOCOLOQUE O GRAVADOR PARA GRAVAR TECLE CPIRONTO”; 
INPUT R26: IF LEFTEC(R2S,4)<)7P” GOTO 1460 

CTSSASANTE+FAS  CMEZASANMDHAGICAD=AD+MBCI, 2) +AB ! 
PRINT H-i,CTS,CMB,CAB,MEBCL,3) 


RETURN 

REM 

REM SUB-ROTINA DE GRAVACAO DO ARQUIVO DE FITA 
REM E SEU FECHAMENTO 

REM 


CLS:PRINTDS60,CG RAVANDO DADOS NA FITA” 
FOR I=zí TO À 

CABZAGAMECIXCI),2)+AG2CNESMSCIXCI),3) 

PRINT 8-1,CTE,CMS,CAS, CNS 

PRINTO 32, USING-CHHRO;I; 

NEXT I 

PRINT 4-1,7FIM”,0,0,0 

RETURN 

REM 

REM SUB-ROTINA DE DISPLAY POR PAGINAS 

REM 

CLS: POKE 16916,3 

PRINTO 14-INT(LENCNTE)/2),/NOTAS TIRADAS PELOS ALUNOS DA TURMA “;NT 


PRINTO B7-INT(LENÇNME)/2),7NA DISCIPLINA DE “;NMG 
PRINTO 443,7ALUNO ;ML6P, NOTA” 
NP=INTCA/10): P=D Í 
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;2 INPUT R$:IF LEF 




















trados no vídeo, também por páginas, 
com dez alunos cada. Neste ponto, não 
podemos mais efetuar nenhuma altera- 
ção dos dados. Pressionamos ENTER 
para mudar de página. 


Na sub-rotina da gravação da turma, 
se O arquivo for em disco, o programa 
perguntará que unidade (O ou 1) deverá 
ser utilizada. Se o arquivo de saída for 
em fita, o programa solicitará que prepa- 
remos o gravador. Feito isto, teclamos 
P. Durante a gravação será mostrado, no 
meio da primeira linha do vídeo, o 
número do registro que está sendo gra- 
vado, sendo um registro por aluno. 


Por fim, chegamos à última sub-roti- 
na para a criação do arquivo, que é o 
índice de aproveitamento das questões. 
Após a gravação da turma, será mostra- 
do no vídeo esse índice, por páginas, 
com dez questões cada. Para mudarmos 
de página, teclamos sempre ENTER. 
Este índice é importante para que o pro- 
fessor saiba quais as questões que apre- 
sentaram maior nível de dificuldade ou 
facilidade para a turma, de modo que 
ele possa rever a matéria concernente 
àquelas. Com isto termina o processa- 
mento da turma e, se mais nenhuma 
correção for requisitada, o programa 
volta ao seu início. 


PARA (L)ISTAR 





e e 


Após a criação do arquivo, podemos 
listá-lo. Para isto, basta teclarmos L. A 
saída poderá ser realizada no vídeo ou 
na impressora. Serão pedidos, então, os 
mesmos dados solicitados inicialmente 
pela rotina de criação (correção de pro- 
vas) de arquivo, ou sejam: nome da 
turma, nome da disciplina e o equipa- 
mento onde se encontra o arquivo (dis- 
co ou fita). 


Se o arquivo estiver em fita, devemos 
colocar o gravador pronto para leitura; 
se estiver em disco, devemos fornecer a 
unidade que deve ser utilizada (O ou 1). 
Durante a leitura, o número do registro 
será mostrado no meio da primeira linha 
do vídeo. Após a leitura do arquivo, po- 
demos escolher entre a saída classificada 
(por aluno ou nota) ou não. 


A turma é então mostrada no vídeo, 
em páginas, cada uma com dez alunos. 
Se a saída for na impressora, os dados 
serão enviados a ela. Ao fim desse traba- 
lho, se mais nenhuma listagem for re- 
querida, o programa retorna ao seu iní- 
cio, solicitando outra tafefa a ser reali- 
zada. 
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49410 
i920 
1930 
iY40 
iP50 
iP60 
1970 
iPB0 
1990) 
2000 
20 io) 
2020 
2030 
2040 
2050 
“0680 
2070 
2080 
2090 
2100 


(I,X) ELSE PRINT TAB(37) USINO “HHH.HHCGUALCMECI,X)) 


diio 
2120 
2130 
2iao 
2143 
2130 
2160 
ei70 
180 


L=0 TO 900:NEXT LZ:PRINTO 896, STRINGE(S4,” “)32FOR L=0 TO 900:NEXT L:GBOTO 
2150 


2190 
2200 
2240 
2220 
2230 
2240 
2250 
2270 
2280 
2290 
2200 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2440) 
2465 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
NOME 
2570 
2580 
2590 
2400 
2610 
2620 
2620) 


2640 


2650 
24660 
2670 
2680 
2690 
2700 
2740 
2720 
2730 
2740 
2750 
2760 
2770 
2780 











IF Prxí0+riD>A THEN LL=A ELSE LL=PHSLO+£O 
FOR I=Bx40+4 TO LL 

PRINT MECIXCI),2); TAB(AO) USING “HHH.HH”SVALIMECIXCTD,3)) 

NEXT I 

R$=INKEYSEIF R$=77 GOTO 4950 

IF ASC(R$)=13 AND LL<A THEN P=P+ÍFELSIGOTOLSÃO 

POKE 16946,0 

RETURN 

REM 

REM SLB-ROTINA DE DISPLAY POR PAGINAS 

REM 

CLS:POKE 46916,3 

PRINTO J2-INT((LENCHIS)+LEN(HSS))/2),H46;H25 

PRINTO 87,H35 

PRINTO 97,H45 

PRINT 

NP=INTE(NG/10)2P=0 

IF Px10+10)NG THEN LL=NQ ELSE LlaPxi0+40) 

FOR I=Pxil+i TO LL 

PRINT TAB(25) USINGCHHHO; Ls 2IF VALCMECI,X))=0 THEN PRINT TAB(37) M$ 



























NEXT 1 

RE=INKEYBEIF R$=72 GOTOZIRO 

LE ASCCR$)=13 AND LL<NQ THEN P=P+isCLS:GOTO 2080 

IF ASC(R$)=13 GOTO 22140 

IF Y=1 GOTO 3420 

PRINTD917,” “IPRINTOBPE, “ENTRE NUMERO QUESTAO”; 

INPUT R$: I=VAL(RE) 

IF VALCRE)S=LI AND VAL(R$))=PXi0+4 THEN 2190 

PRINTO 896,7NUMERO DA QUESTAO FORA DA PAGINA, ENTRE NOVAMENTE :FOR 


















PRINTO949,” “2PRINTOSP6, “ENTRE RESPOSTA CORRETA”; 

INPUT M$CI,X)2CLS:GOTO 2080 

POKE 16916,0 

RETURN 

REM 

REM SUB-ROTINA DE CLASSIFICAÇAO 

REM 

R$=LEFTSC(RAS, 1): IF R$=7A” THEN J=2 ELSE IF R$=/N” THEN J=2 

CLS:PRINTO 20, “O NUMERO DE ALUNOS E “;A 

PRINTO 468,0 LASSIFICANDO 

FOR IU=i TO A-í 

PRINTO 468,“ 

FOR IM=1IC+á TO À 

PRINTO 468,/CLASSIFICANDO 

IF VALCMSCIXCIC),J)) AND VALCMECIXCIM),J)) LDO GOTOZI60 

IF MSCIXCIC), J)<=MSCIXCIM),J) GOTO 2400 ELSE 2370 

IF VALCMSCIXCIC), J))I=VAL(MECIXCIM),J)) GOTO 2400 
IXCD)=IXCIM) 

IXCIMI=SIXCIC) 

IXCIC)=IXC0) 

NEXT IM 

NEXT IC 

RETURN 

REM 

REM SUB-ROTINA DE PREPARACAO PARA CLASSIFICACAO 

REM 

CLS:PRINTO 40,“VOCEÊ QUER SAIDA CLASSIFICADA (S/N) ”;2 INPUT R$ 
IF LEFTS(R$,1)=/Nº THEN 2470 ELSE PRINTO 40,M4S; INPUT Rós 

CLS:FOR I=0 TO As IXCI)=I: NEXT I À 

IF LEFTS(RS,4)="5" AND AJi THEN GOSUB 2230 ELSE 2490 

RETURN 

REM 

REM SUB-ROTINA DE ENTRADA DE DADOS 

REM 

INPUT “ENTRE NOME DA TURMA “;NT$ 

IF LEN(NTS)>41 THEN 2530 

A=0 

INPUT “ENTRE NOME DA DISCIPLINA “;NMS:IF LENCNM$))24 THEN PRINT “0 

DA DISCIPLINA DEVE TER ATE 24 CARACTERES“:GOTO 2560 

INPUT “ARQUIVO EM (D)ISCO OU (FIITA “;DUSZDVS=LEFTSCDVS,4) 

IF DVS="D” OR DVS="F” THEN 2590 ELSE 2570 

RETURN 

REM 

REM SUB-ROTINA DE LEITURA DE ARQUIVO DE DISCO 

REM 

INPUT “ENTRE NUMERO DO DISCO (0/1) “;DNS 

IF DN$="0" OR DNS="1” THEN 2450 ELSE 2630 

CLS:PRINTO 460, ENDO DADOS DO DISCO” 

AR$="T2+NTE+72“4DNS 

OPEN “I”,4,0R$ 

1=0 

IF EOF(4) GOTO 2750 

INPUT Hí,ME(I,2),MSCI,3) 

PRINTOGR, USENGOHHM”, Is 

IF I=0 THEN NMS=M$C1,9) 

1I=1+1 

GOTO 2690 

A=1-4 

CLOSE 

RETURN 

REM 
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PARA (T) RANSFERIR 





Esta rotina possibilita transferir ar- 
quivos de um equipamento para outro, 
do disco para fita e vice-versa, para O 
mesmo equipamento, de um disco para 
outro ou de uma fita para outra. 

Para efetuarmos a transferência, são 
pedidos os seguintes dados: 

— equipamento onde está O arquivo a 
ser transferido, disco ou fita; 


— O equipamento para onde será trans- 
ferido o arquivo, disco ou fita; 


— o nome da turma a ser transferida; 
— O nome da turma a ser gravado no 
novo arquivo; 


— se a saida deve ser classificada (por 
aluno ou nota) ou não; 


— se o equipamento de entrada e/ou 
saída for disco, qual a unidade que 
será usada para leitura e/ou gravação 
do arquivo. 

O motivo da existência da quarta per- 
gunta (o nome da turma a ser gravado 
no arquivo de saída) é possibilitar a mu- 


2790 REM 
2800 REM 


SUB-ROTINA DE LEITURA DE ARQUIVO DE FITA 


28140 PRINT “COLOQUE O GRAVADOR PARA LEITURA TECLE (PI)RONTO”; 


2820 INPUT R2$: 


2830 CLSIPRINTIS60,L ENDO DADOS 


2840 [=D 


DA FITA” 


2850 INPUT H-í,CTE,CMS MELL, 2) ,M$CI,I) 


2860 IF CT6=“FIM” AND 1=0 GOTO 2850 ELSE IF CT&="FIM” 


THEN 2920 


2870 IF I=0) PRINTIPOO, STRINGS(63,” “)paPRINTA GBi=INTCCLENCOTEI+HLENCCMS) 
3/2), "LENDO “sCTS9” DISCIPLINA DE “7UMbo 

2840 IF L=0 AND TE&=/T” AND CT&=NTE THEN NM$=CMSE GOTO 2900 

2890 IF CTE=NTE AND CME=NME THEN 2900 ELSE 2850 

2900 PRINTO J8,USING “HENCGI; 
aPãO I=I+iz GOTO, 2830 


aveD Aal-L RETURN 
2990 REM 
CPAD REM 
aPo) REM 


SUB-ROTINA DE SAIDA EM IMPRESSORA 


2960 LPRINTSLPRINT TABCIO)CNOTAS TIRADAS PELOS ALUNOS DÁ TURMA “sNTS 
29720 LPRINT TAB(íT) “NA DISCIPLINA DE “NM 
2980 LPRINT TAB(20)“ ALUNO”; TABC4L)I“NOTA”s 


29790 LPRINTESLPRINTE 
3000 FOR I=t TO À 


9040 LPRINT MECIXCIS, 2); TABIAQ) USINGOHHR. HHVIVALCMEBCIXCI),3)) 


3020 NEXT 1 

3030 CLSIPRINTO 468,ºF IM DA 
3040 FOR L=0 TO 900:NEXT L. 
3050 RETURN 


dança do nome, se quisermos corrigilo 
ou renomeá-lo. Caso a classificação não 
seja pedida, o arquivo de saída conterá 
os dados na mesma sequência em que 
foram lidos. Para eliminar um arquivo 
do disco, devemos utilizar o comando 
KILL do DOS. Quando nenhuma outra 
transferência for requerida, o programa 
volta à pergunta inicial. 


IMPRESSAO 








Lawrence Faiconer King é programador há 
cinco anos e meio, trabalhando na drea de 
transmissão de dados internacionais, mais es» 
pecificamente no SICRAM (Sistema Compu- 
tarizado de Fetransmissão Automática de 
Mensagens), tendo ministrado cursos de ope- 
ração, software e linguagem Assembler refati- 
vos a esse sistema, na EMBRATEL. 
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O único terminal teleimpressor fabricado no Brasil. 


A ISA, Indústria de Impressoras S/A, acaba de lançar'o 
primeiro teleimpressor genuinamente brasileiro. Sua alta 
tecnologia eletrônica, prova na prática sua capacidade 
de trabalho. Imprime por matriz de pontos 9x7, 
permitindo até 8 cópias impressas, com uma 


velocidade de 100 C.P.S. Equipado com 


memória standard de 2 K caracteres, 
utilizando formulário contínuo, 
folhas soltas ou bobina de papel. 
De 64 até 132 caracteres por 
linha, com interface serial 

RS 232 elo de corrente e 
paralelo. Sua velocidade 

de comunicação é de 

50 a 9.600 B.P.S. 

8 diferentes 

tipos de 

impressão. 


ISA 


INDUSTRIA DE IMPRESSORAS S.A. 
Escritorio: 

A. Prot. Jose Marques da Cruz, 234 
Fabrica: 

Aua Centro Africana, 74 

Tels.: (011) 240-2442 .543.4939 

Telex: (011) 369261 IM BR 

São Paulo-SP. 


Meio-Tom 


Conheça mais 
detalhes do 
Teleimpressor 
[6a] 


SISTEMA DE PROCESSAMENTO DE DADOS E TELECOMUNICAÇÕES 


MATRIZ: Ria de Janeiro. R. Republica do Libano, 61 -12º and. 


Tel.: (021) 221-4677 - Telgx (021) 30187 


FILIAIS: S. Paulo - R. Frei Caneca, 1119 Tel.: (011) 2884-8311 - Telex (011) 22191 
Brasilia - SCS 02 - Bloco C nº 41-.SL.01-Tel..(081)225-.1588 - Telex (061) 1750 
Porto Alegre - Rua Santa Terezinha, 300 : Tel.:(051)32-3564 - Telex (051) 2144 


Goiânia - Belo Horizonte - Salvador 





ESCOLA DO FUTURO. 


A DIGITUS- INDUSTRIA DE COMPUTADORES tem procurado atender 
ao usuário do DGT-1000, colocando no mercado novos equipamentos 
que aumentam a versatilidade do microcomputador. 

E com esse objetivo, que a DIGITUS lança a UCTE - um módulo que 
acoplado ao DGT-1000 irá atender aos profissionais principalmente 

da ârea educacional. 


o 
T 





E PEA RR As ain É a 1 pi 


DIGITUS- 
Rua Gávea, 150 Belo Horizonte 
tel: (031) 332.8300 tx: 3352 


UCTE - Unidade Controladora de Terminais Educacionais. or 2) SS roaao 


Esta unidade permite a comunicação entre um DGT-1000 central com até 16 (dezesseis) DGT-1000 secundários 
através da porta de cassete. 

Os dezesseis terminais poderão ser computadores na configuração mínima, pois sendo a comunicação através 
da porta de cassete não é necessário qualquer modificação nos terminais. 


O computador central, comandado pelo instrutor, deverá ter uma configuração minima de 48KB de memória e 
um Disk-Drive. 


O sistema permite ao instrutor carregar programas nas estações individuais, podendo aplicar provaseteras 
respostas automaticamente gravadas no disquete, para posterior avaliação. 

Nas estações individuais, os estudantes poderão gravar e carregar programas diretamente no computador do 
instrutore poderão também usar o seu computador independentemente. 


Suas aplicações são de grande valia para centros educacionais, cursos monitorizados, escolas técnicas, etc. 


AUCTE facilitará muito o aprendizado em cursos de programação e operação de computadores, além de permitir 
o ensino em outras áreas. 


A UCTE dispensa o uso incômogo do cassete e o seu custo émenordo que comprar os gravadores para os 
terminais. . 


0BS.: A UCTE pode ser utilizada com o DGT-100. Consulte seu revendedor. 

















Conheça dois novos endereços de memória do Apple: um deles é capaz de produzir 
diversos sons; o outro, controla o entra-e-sai de informações das fitas cassete 











Efeitos sonoros 
e clicks de gravação 





Rudolf Horner Junior 


xiste na memória de qualquer 
microcomputador uma série de 
endereços que são utilizados pe- alto-falante 
lo próprio equipamento para re- 8 ohms 
gistrar determinados valores lógicos do 
sistema. Manipulando-os diretamente, 
várias operações tornam-se excepcional- 
mente mais rápidas e fáceis de serem ob- 
tidas, e em algumas ocasiões podemos 
-até realizar proezas impossíveis de serem 
alcançadas com a utilização única empre- 
gada em um determinado equipamento. 
Qualquer bom programa escrito em 
BASIC — e que tenha um alto grau de 
eficiência — normalmente usa muitos 
endereços e rotinas em linguagem de má- 
quina (comandos POKE, PEEK, CALL Memória RAM 
e URS). Muitos programadores, entre- 
tanto, refutam estas grandes vantagens 
por trazerem com elas um efeito cola- 
teral, quase sempre, bastante grave. Sis- 
temas de software, que embora escritos 
em linguagem de alto nível usem endere- (64 kbytes) 
ços específicos de memória e rotinas 
montadas em Assembler na RAM ou já 
disponíveis na ROM de cada máquina, 
acabam não sendo portáveis de um equi- 
pamento para outro, ou seja, os programas, apesar de escritos em um computador da linha TRS-80 ou qualquer outro cujas 
em uma mesma linguagem, não podem ser rodados em equi- características não sejam idénticas às do Apple. Justamente pa- 
pamentos de linhas não compatíveis. ra'tentar evitar esta Torre de Babel, ossistemas criados para fun- 
Para ilustrar vamos citar um exemplo. É bastante fácil desen- cionar em diversos tipos de equipamento acabam perdendo 
volver um programa em BASIC para uma máquina da linha eficiência para que a portabilidade não fique prejudicada. 
Apple que crie um gráfico qualquer. O programa irá se tornar Mas ainda bem que nossos objetivos nesta seção não são es- 
mais eficiente à medida em que utilizarmos algumas caracterís- tes. Portanto, vamos falar sobre mais alguns endereços de me- 
ticas específicas do equipamento. No entanto, ao mesmo tem- mória que foram idealizados para que pudessem realizar algu- 
po que o tornamos mais eficiente, dificultamos a sua execução mas tarefas especiais. 





(48 Kbytes) 
ig“ Memoria ROH =p! 


(16 Kbytes) | 
| 





Figura À 
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O ENDEREÇO DO SOM 
— DOS 


Como já sabemos, existem no Apple certos endereços de 
memória que atuam simplesmente como comutadores. São en- 
dereços que, quando referenciados em uma instrução de leitura 
ou escrita, fazem com que algum dispositivo do equipamento 
passe de um estado a outro. Creio que o exemplo mais fácil 
deste tipo de comutadores é o que está associado às páginas de 
alta resolução gráfica. Tratam-se de dois endereços de memória 
cuja simples referência em linguagem de alto ou baixo nível le- 
va a tela do micro a exibir a página um ou a página dois de alta 
resolução de gráficos. 


Desta vez, porém, falaremos sobre um outro endereço de 
memória que tem um funcionamento similar a estes dois. É 
mais um endereço constante no grupo das 4096 localizações 
de memória especialmente destinadas às funções de entrada e 
saída. Estamos falando do endereço $C0 30 (em decimal, equi- 
valente a 49200 ou — 16336), o qual está diretamente vincula- 
do a um pequeno alto-falante de oito ohms que vem dentro da 
caixa das máquinas nacionais compatíveis com o Apple II. 


Veja na figura 1 o esquema que define a posição deste alto- 
falante. A localização $C030 é um exemplo típico de um en- 
dereço comutador. A simples referência a esta localização faz 
com que o cone de papel do alto-falante alterne suas posições 
entre para dentro e para fora. A cada referência ao endereço, 
haverá uma mudança do estado do cone entre estas duas possi- 
bilidades, e cada vez que ocorre uma mudança de estado o alto- 
falante emite um pequeno click. 


Os manuais que acompanham o Apple e similares explicam 
como obter sons referenciando o alto-falante pelo comando 
BASIC que todos, provavelmente, já usaram: PEEK (—16336) 
ou PEEK (49200). Qualquer um deles fará com que o alto-fa- 
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AGORA ESTÁ MAIS FÁCIL 
ASSINAR MICRO SISTEMAS 


Para sua maior comodidade, a ATI Editora Ltda. coloca à sua disposição 
os seguintes endereços de seus representantes autorizados: 





lante produza um som praticamente imperceptível. Já se colo- 
carmos um destes comandos dentro de um Joop que o execute 
diversas vezes, o resultado poderá ser um som cacofônico bas- 
tante fácil de ser percebido. 


Contudo, torna-se difícil procurar emitir notas musicais 
com fregiiências precisas usando linguagem BASIC interpreta- 
da. É que o interpretador consome um tempo muito grande 
para executar O programa e nossas frequências acabam sendo 
comprometidas. Quando queremos utilizar efeitos sonoros mais 
interêssantes em nossos programas, somos, via de regra, obriga- 
dos a trabalhar com rotinas em linguagem de máquina cujo 
tempo de execução é muito menor que o de programas em 
BASIC. 


Para criarmos uma rotina desta natureza — e que satisfaça 
plenamente nossos objetivos — devemos ter sempre em mente 
O tempo necessário para a execução de cada comando existen- 
te na rotina; isto para que possamos fazer um número correto 
de referências ao alto-falante por unidade de tempo e produzir 
sons das mais variadas frequências. 


É claro que devemos agir também com bom senso. Se você 
criar uma rotina que simplesmente referencie o endereço 
$C030 e na instrução seguinte volte ao início, completando 
um Joop, evidentemente você não poderá ouvir nenhum resul- 
tado. Não perca de vista o fato de que a fregiiência do relógio 
do equipamento é de 1.023 MHz e que, mesmo que o seu alto- 
falante conseguisse reagir e trocar de estados nesta velocidade, 
seu ouvido humano, por mais apurado que seja, não consegui- 
ra ouvir sons com frequência superior a vinte mil Hz. Se a ro- 
tina funcionasse, ela só poderia produzir ultra-sons. 

Vamos ver agora duas rotinas em linguagem de máquina que 
foram criadas para uso em programas de jogos e que tiveram de 
ser elaboradas dentro deste espírito. Veja inicialmente a lista- 
gem em Assembler da figura 2. Temos uma rotina que servirá 
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EFEITOS SONOROS E CLICKS DE GRAVAÇÃO 
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Figura 2 
para produzir o disparo de uma arma futurista, um revólver de 
raio laser. Observe, na listagem, as referências ao endereço 
$C030. Veja também porque a rotina, quando executada, dará 
a impressão de um som com diversos pulsos. As três primeiras 
instruções contêm uma chamada à própria sub-rotina de cria- 
ção do efeito sonoro. Por este motivo, ele será executado várias 
vezes. 

Veja, na figura 3, a listagem de um programa em BASIC que 
construirá a rotina para você. Carregue-o na memória da forma 
como aparece listado, execute-o com um comando RUN e logo 
após use o comando CALL 768 para ouvir o disparo do revólver. 

Experimentada esta rotina, vamos tentar uma um pouco 
mais complicada. Vamos carregar a nova rotina na mesma posi- 
ção que a anterior: a terceira página da memória RAM do 
Apple. A nova rotina está listada na figura 4. Como você pode 


DATA 52,9, 3,38, Pa So SEP. 3. 16 
Pa, iSI, 253. 169,295,133,254, 
1697,0,48, 172.230,48. 192, 206. 
48,205. 166.255, 282,288,253,1 
Pa A 2h, DEDE, POL? 3 

«Pé 

FOR À = 768 TO 269: READ B: POKE 
AsBi NEXT : END 





Figura 3 
ver, ela é bem mais cheia de detalhes que a anterior. O objetivo 
desta vez é obter o efeito sonoro de um helicóptero voando. 

de preferir o BASIC, use o programa da figura 5: ele carre- 
gará a rotina para você. Digite-o exatamente como está listado, 


execute-o com o comando RUN e, em seguida, execute a roti- 


na em linguagem de máquina que foi carregada na memória. 
Comande CALL 768 e ouça, por alguns instantes, o som da hé- 
lice de um helicóptero golpeando o ar. 

Aí está. Não existe limite-para os efeitos que podem ser ob- 
tidos com o uso do endereço de memória vinculado ao alto-fa- 
lante. Basta apenas um pouco de cuidado é imaginação. 
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REGISTRO DE INFORMAÇÕES EM FITA 





Vamos dicutir agora o processo utilizado pelo Apple para 
registrar informações em wma fita magnética. Este processo 
tem a ver com o nosso assunto pois trata-se do uso de uma lo- 
calização de memória com funcionamento similar ao que aca- 
bamos de descrever. 

Todos sabemos que na parte traseira de nosso micro temos 
dois conectores denominados IN e OUT, cuja função é, respec- 
tivamente, receber e enviar informações para um equipamento 
de gravação em fita magnética, um gravador cassete por exem- 
plo. Na realidade, ao conector OUT é associado um endereço 
de memória da mesma forma como é associada uma localiza- 
ção ao alto-falante. O endereço associado ao conector OUT 
espe à localização $0020 (em decimal, 49184 ou. 
— 16352). 

Fazer referência a esta posição faz com que a voltagem do 
conector OUT mude' de zero para 250 mv. Se existir um equi- 
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asB2- “tb 8 BI JOR $8300 
ASH - ndo DEY 

BIBA- DB FA BNE $u382 
Sta 8 A? gl LDA H$HI 
BIBA- Sa Pr STA GEE 
GEL AP 45 LDA His 
UIBE- 8a FE STA GEE 
gaita AP Ba . LDA HIDE 






BSS ºb 38 CB STA sCa3Ia 
B315-- FE 38 CB ENC CASE 
































B31%- hã PF LDX dd 
BILA- CA DE X 

B31B- ba FD BNE. SUSIA 
G51D- Ló FE DEC GFE 
ASR Fa BEQ Hs 
321 - Eá FF INC GrFr 
B323- “€ 18 03 SMP $8314 
 Bsda- AP 12 LDA Bai 
AS Sã 89 STA +88 
BIZA- AP dE LDA H$20 
BIC 83 Dá STA $As 
BIME- AP 3 LDA HSAS 
B3IH- 83 07 STA &87 
UIIA- SD 30 Ch STA ECHSO 
3 3E— EE 30 BO INC 0930 
B338-- CE 34 CA DEL SLBSA 
nss0- Có 86 DEC HA 
0330 - DA Ba BNE tn341 
BIFE - Céó 87 DEC $687 
0341 - Dt Fs ENE $433B 
Bisd- Có 98 DEC $84 
ESG DB ES BNE $BIS2R 
347 ti RTS 

BIG A - ge BRK 

349 8 BRK 

BS4A- Ba BRK 

(3.5.4 — Ba BRK 

Ega 8 BRK 
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Figura 4 


MICRO SISTEMAS, maio/84 























DATA 168,35,32.8,3.136,208,2 
8,169,1,133,255,169,69,133, 
240167, 8,141,48,192,238,48, 
“o 192,166,235,202,208,253,198, 
254,248, 5 
Lig DATA 230,285,76,16,3,169,18, 
133.8,169,32,133,6.1697,3:133 
172 141,48,192,238,48,0,206,4 
$2192,198,6,.208,2,198,7,208, 
248,198,8,208,227,96 
FOR A = 758 TO 839: 
AsBi NEXT : END 


READ Biz POKE 






Figura 5 


pamento de gravação, será registrado em fita um pequeno 
click. Da mesma forma que na produção de música, ao referen- 
ciarmos a localização $C020 contínua e repetidamente, pode- 
remos produzir, na fita, um tom de gravação. Pela variação de 
duração e amplitude deste tom, a informação poderá ser codi- 
icada. 

Existem, no programa monitor da ROM, rotinas para codi- 
ficar informações em fita cassete que são usadas para execu- 
tar os comandos do monitor READ e WRITE. As mesmas ro- 
tinas são utilizadas para executar os comandos LOAD e SAVE 
do BASK Applesoft. 

Para o procedimento de leitura de informações, temos o 
processo inverso. Uma rotina em linguagem de máquina veri- 
fica O sinal existente no conector IN e, através da inspeção da 
localização de memória $C060 (em decimal equivale a 49248 


MÔNICA 












ou —16288), pode-se ouvir os tons que foram originalmente 
gravados na fita. Da interpretação destes tons, o computador 
pode recuperar as informações que haviam sido registradas an- 
teriormente. 


Como vimos, devemos usar, portanto, os endereços 8€020 


para registrar as informações e $C060 para recuperá-las. É im- 
portante, porém, observar um detalhe: para que se produza um 
click no conector OUT, basta que se faça uma referência ao en- 
dereço $C020. Esta referência poderia ser de duas espécies: 
uma de leitura (em Assembler, LDA; em BASIC, PEEK) e ou- 
tra de escrita (em Assembler, STA; em BASIC, POKE). 

Uma referência de escrita não poderia ser usada pelo proces- 
sador 6502 (devido ao sistema utilizado) para gravar dados nu- 
ma localização de memória: primeiro ele lê o conteúdo desta 
localização para depois gravar nela o valor desejado. Isto signi- 
fica uma dupla referência e, consequentemente, dois clicks ao 
invés de apenas um como seria correto. 

claro que com estes endereços poderíamos criar as nossas 
próprias rotinas para registrar e recuperar informações de um 


gravador de fita. No entanto, estas não poderiam estar em lin-- 


guagem BASIC, uma vez que o interpretador não seria suficien- 
temente rápido para ler e interpretar as variações dos estados 
das localizações de memória associadas aos conectores IN e 
OUT. As rotinas teriam que estar escritas em linguagem de má- 
quina. E 





Rudolf Horner Junior cursa Ciência da Computação na Unicamp e é só- 
cio da Potencia! Software, firma que produz programas especiais para 
microcemputadores em Campinas, SP. 


132 posições de impressão 


(normal), bidirecional, 
velocidade de 100cps, 
densidade horizontal 5 à 

20 cpp, form. em até 5 vias. 
Capacidade gráfica de 72 x 
75 pts por polegada. Interface 
paralela ou serial. 


80 posições de impressão (normal), bidirecional, velocidade 
de 100cps, densidade horizontal 5 à 16,7 cpp, form, 
em até 5 vias. Interface paralela. Módulo opcional de alta 
resolução gráfica “bit image” (endereçamento das agulhas) 
e qualidade de impressão carta. 


PARA QUEM NÃO PODE ABRIR 
MÃO DE FORMULÁRIOS DE 132 
POSIÇÕES. 


A IMPRESSORA COMPLETA E DE MENOR CUSTO DO 
MERCADO, 


VENDA-LEASING-ALUGUEL 


ELEBRA 


INFORMETICA 





INFORMÁTICA EMPRESARIAL LTDA, 


132 posições de impressão 
(normal), bidirecional, 
velocidade de 200 cps, 
densidade horizontal 5 ou 
10 cpp, form, em até 7 vias. 
Interface paralela ou serial. 


PARA MICROS OU 
MINICOMPUTADORES, O 
COMPROMISSO DE VELOCIDADE 
E ROBUSTEZ. 


PRONTA ENTREGA DE TODOS OS MODELOS 
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TK 2000 


Apresentado ao público cu- 
rante a Feira de Informática do 
ano passado, 58 encontra agora 
disponível no mercado o TK 
2000, computador colorido da 
Microdigital. O 2000 não étotal- 
mente compatível com o Apple, 
mas poderá rodar programas ge- 
rados em BASIC para essa linha 
de computadores desde que se- 
jam feitas algumas mudanças 
nos endereços da ROM. O equi- 
pamento possui dois formatos 
de gravação em fita cassete: O 
seu próprio formato e outro 
compatível com o da linha 
Apple. 

A UCP do novo micro traba- 
tha com microprocessador 6502, 
de 8 bits. O TK 2000 tem 16 
Kbytes de memória ROM e 64 
Kbytes de memória RAM, dis- 
poníveis para O usuário, seu te- 
clado é profissional, com 54 te- 
clas, e o novo equipamento da 
Microdigital pode ser tigado di- 
retamente a uma televisão colo- 
rida, sem que seja necessária 
qualquer alteração na TV. O 
2000 possui saída para sinal de 
vídeo, podendo ser ligado a um 
manitor profissional, e também 
saída de um canal de som pela 


TK2000 
no mercado 





TV. O display do vídeo é apresen- 
tado em quatro modos. No mo- 
do texto, com formato de 40 ca- 
racteres X 24 linhas; modo gráfi- 
co com formato de 40x48; modo 
gráfico de alta resolução com 
formato de 280x192 pontos e 
display texto de alta resolução. 
Em sua configuração básica, o 
TK 2000 vem com saída RF, 
saída para monitor de vídeo 
preto e branco ou a cores, saída 
para gravador cassete e interface 
paralela tipo Certronics para im- 
pressora. Na versão básica, pos- 
sui monitor Disassembler e mini- 
assembler em ROM. O novo 
equipamento da Microdigitai 
pode ser encontrado em várias 
lojas de revenda de microcom- 
putadores É seu preço é de 
Cr$ 849.850,00 (preço de abril). 
Quanto aosoftware, para 0 2000, 
já se encontram disponíveis os 
seguintes programas: Controla 
de Estoque; Cadastro de Clien- 
tes e Mala Direta; Contas a Pa- 
gar; Contas a Receber; Controle 
Bancário; Multiplan, e os jogos, 
multi-invader; sabotagem; pâni- 
co; auto-estrada; corrida: papa- 
tudo e ataque, todos da Micro- 
soft. 


Pacote topográfico 
da Codimex 


Seguindo sua política de . 
apoio ao usuário profissional, 
a Codimex está. oferecendo, à... 
nível nacional, um pacote des-- 
tinado. a aplicações na área de - 


Topografia, o qual inclui um 


micro Codimex-6809 com 32 
“Kb e uma unidade de. disco... 
“uma impressora Ecodata bidt:.. 
reciónal com 100 CPS é progra “e 


mas para Cálculo da Poligonal, 


Cálculo dé Área e-outros espe- 


cíficos que descobrem erros | 


“eventuais de cálculo. de ângulo . - 
“e medida cometidos no campo. 

- Para maiores informações, q. 
endereço da Codimex é Av: 


Wenceslau Escobar, 1549, Vila 


Assunção, Porto Alegre, RS. 











A família 17000 


O novo integrante da família 
| 7000, da Itautec, o Júnior, 
apresentado ao público durante 
a última feira de Informática, te- 
ve seu lançamento comercial no 
final de março, O novo micro- 
computador da Itautec foi desen- 
volvido em duas versões: | 7000 
Júnior e | 7000 Júnior E. A di- 
ferença básica entre os dois mo- 
delos está no teciado. Além do 
teclado tipo máquina de escre- 
ver com caracteres em portugués, 
do modelo mais simples, o Júnior 
E possui também um teclado 
numérico separado e pode traba- 
lhar com disquetes de 5" ou 8”. 
Juntamente com o lançamento 
do Júnior, a Itautec apresentou 
um conjunto de serviços tais 
como assistência técnica; centro 
educacional para cursos e treina- 
mento; centro de atendimento 
ao usuário, para atender as dúvi- 
das de clientes por telefone ou 
telex e um catálogo com 161 
programas aplicativos desenvol- 


vidos por 44 software-houses 
credençiadas pela Itautec, Os 
três equipamentos da Itautec 
são totalmente compatíveis en- 
tre si, e a migração do Júnior pa. 
ro Júnior E e parao 1 7000 se” 
dá através de um kit de expan- 
são. O | 7000 Júnior, em seu 
modelo básico, é composto por - 
UCP com 64 kKbytes, vídeo de 
fósforo verda e drive para dois 
disquetes de 5 1/4”, custando 
450 ORTN. Na mesma confi- 
guração, o JrE custa 480 ORTN. 
Segundo Ronaldo de Campos 
Melo, Diretor de Marketing da 
Itautec, o Júnior deverá atingir 
um público formado por peque- 
nas e médias empresas, escolas 
profissionais liberais. Com este 
lançamento, a meta da Itautec 
para este ano é de comercializar 
64 mit microcomputadores pes- 
soais, atingindo 15% do merca- 
do, e um faruramento de Cr$ 
80 bilhões contra 74 bilhões de 
1988. 





Brasil já tem light-pen 


LP 209, 
a primeira 
light-pen 
brasileira. 





A Prisma, uma divisão de 
produtos da Macromicro, lançou 
recentemente no mercado 
brasileiro a LP 200, primeira 
tight-pen fabricada no Brasil. 
Para quem ainda não conhece, 

a fight-pen permite o acesso 

a dados diretamente na tela do 
monitor, substituindo o teclado 
nas tarefas de seleção de cores, 
dados e desenhos, que passam 
assim. a ser faitas diretamente no 





trZ00 PRISMA 


visor do microcomputador, 


Por enquanto apenas os usuários 


da linha TRS-80 poderão 


utilizar a LP 200, mas a Prisma 
promete para breve um modelo 
específico para a linha Apple. 
Quaisquer dúvidas sobre como 
utilizar ou tirar o melhor 
proveito do produto podem ser 
esclarecidas pelo telefone 

(071) 572-3304, 
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Micromag investe 
- na área de cursos 


A Micromsg, uma das primeiras lojas 
especializadas om mitrocomputadores a surgir 
no Rio de Janeiro, lançou recentemente um 
curso de Técnicas Digitais e Eletrônica, 
incrementando o que para a loja é um dos 
pontos fortes: a área de cursos. Como diz 
Edson Abid, engenheiro civil e um dos sócios 
da empresa, “a concorrência é grande e sobre- 
vive quem não se limitar a vender software e 
hardware. É preciso estar sêmpre na vanguar- 
da e pensar a longa prazo”. 

Periodicamente a Micromag oferece cursos 
de BASIC básico, BASIC avançado, Hardware 
(Lógica Digital) e Micros para Crianças. Além 
destes, mantém uma equipe especial, respon- 
sável pelos cursos nas empresas. “Estamos 
também cedendo nosso espaço para reuniões 
de um chube de usuários do TK82-C e do 
Color 64 ”, lembra Egison, 








Plotter HP para si temas 


Mas não é só no setor de cursos que a loja 
está investindo. Em sua sede funciona uma 
oficina especializada capaz de dar assistência 
técnica a qualquer computador nacional ou es- 
trangeiro, atendendo a pedidos do Brasil intei- 
ro, e foi justamente lá que o Color 64 foi 
desenvolvido e lançado. 


A loja comercializa equipamentos de 
vários fabricantes nacignais, acompanhados de 
perifáricos para todas as marcas, suprimentos e 
impressoras. Na parte de software, possui 
jogos educativos e de animação e desenvol- 
ve aplicativos para 05 TK, Color 64, Microen- 
genho e também para a linha Apple em geral. 
OQ endereço da Micromag é Rua Sete de Se- 
tembro, 92, Ij. 106, Centro, tel.: (021) 222- 
6088, Rio de Janeiro, RJ. 


8 vender software e hardware." 


Clube 


Edson Abib: “Scbrevive quem não se limita 











CAD/CAM | 





A Hewlett-Packard acaba de 
lançar um traçador de. gráficos 
para aplicações em projetos de 
circuitos integrados e impressos, 
mecânicos, arquitetura e enge- 
nharia civil. Na opinião de Brian 
Moore, Gerente Geral da divisão 
de San Diego da Hewlett-Packard, 
“o HP758B6B completa a nossa 
família de produtos para dese- 
nho gráfico, atendendo pratica- 
mente a todas as exigências dos 
usuários de CAD/CAM”. 

O HP7586B trabalha com fo- 


lhas de papel! tamanhos A4/A até 
AO/E ou com rolos de papel 
com largura de 26.7 à 91.9 cm 
e comprimento de 45.72 m, per- 
mitindo assim desenhos contí- 
nuos. Possui resolução de 0.025 
mm para endereçamento e reso- 
iução mecânica de 0,003; sua ve- 
locidade é cle 60 cm/seg e a ace- 
leração da pena é de 4 g. Com- 
patível com os equipamentos 
HP, o novo piotter também po- 
de ser usado em alguns compu- 
tadores de outras marcas. 





de manutenção 





A M.S. industria Eletrônica está lançando um clube de manuten- 
ção para possuidores de micros nacionais e importados. Entrando 
como associado, o usuário terá direito a dois check-ups gratuitos por 
ano, mão-de-obra gratuita em qualquer conserto ou substituição de 
peças e assinatura de uma revista técnica, entre outras vantagens. Os 
sócios do Clube de Manutenção MS receberão trimestralmente uma 
tabela de destontos para compra de equipamentos em loja especiali- 
zada em micros é descontos especiais para cursos em escolas creden- 
ciadas pelo clube. O Clube M.S. está aberto somente a pessoas fisi- 
cas, e maiores informações a respeito podem ser obtidas na própria 
M.S., rua Dr. Astolfo Araújo, 521 -— lbirapuera/São Paulo. Tel.: 
(011) 5429-9022. 


STRINGS 


x A Cobra Computadores e Sistemas Brasileiros S.A. está iniciando a 
operação de seu Centro de Computação Gráfica (Computar Aided De- 
sign) que permitirá uma significativa redução do ciclo de desenvolvi- 
mento de seus produtos. A instalação do Centro visa garantir. que a 
empresa atinja seus objetivos para o biênio 84/85, entre os quais se 
destaca o desenvolvimento do superminicomputador de tecnologia na- 
cional, x Foi inaugurada recentemente na Rua São Januário, 907, 
em São Cristóvão, no Rio de Janeiro, a CITEC — Ciência e Tecnologia 
Livraria e Editora Ltda. que inicia suas atividades como distribuidora 
de livros técnicos e didáticos em gerai, Com mais de 500 títulos na 
área de computação, a CITEC está atendendo pedidos de catálagos 
através do Serviço de Reembolso Postal ou pelo telefone (021) 580- 
0034. x A Nashua do Brasil acabz de lançar a copiadora 3025, que 
tira 25 cópias por minuto nos formatos A4, ofício e Diário Oficial. O 
equipamento trabalha simultaneamente com dois cassetes de papel de 
tamanhos diferentes, tem memória, painel digital e porta-clips magné- 
tico. Aceita originais de até 254x356 mm ou maiores, graças à tampa 
destacável. Seu preço, de Cr$ 9 milhões e 850 mil, inclui os impostos, 
e a prestação mensal de leasing situa-se por volta dos Cr$ 350 mit. & 
A ADP Systems está se preparando para ministrar cursos por área de 
atuação (medicina, engenharia, comunicação, etc.) a partir do segun- 
do semestre deste ano. Estão sendo iniciados também na ADP cursos 
de pós-graduação de ex-alunos. O primeiro, de uma série voltada a 
produtos usuais, será o CICs, destinado a aumentar a produtividade. 
"Já na parte de especialização profissional, será desenvolvido Auditoria 
ce Sistemas. * Prestando mais um serviço sos usuários da tinha TK, a 
Microdigita! Eletrônica coloca à disposição o telefone de sua filial para 
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assistência técnica em Porto Alegre; 24-5060. O endereço é Av. Borges 
Medeiros, 410, bloco Il, 14º andar, conjunto 1108. 4 Já estásendo 
comercializado o CP500/M, a nova placa CP/M da Progus Cibernética 
Ltda. O CP/M torna o CP-500 compatível a nível de disco com o Sis- 
tema 700, tendo sua capacidade aumentada de 162 K para 190K. 4 
A Informax Assessoria e Comércio de Microcomputadores Ltda, que 
comercializa equipamentos da Prológica, Microdigital e Unitron, mu- 
dou-se para a Av. Brigadeiro Faria Lima, 1390/cj. B2-Jd, Paulistano, 
tel: (011) 8140682. 4 A ABC Bull Telematic entregou à CTBC, 
Companhia Telefônica da Borda do Campo, o computador DPS-TL, 
com 4Mb de memória, 60 terminais de vídeo, quatro impressoras de 
100 LPM e quatro unidades de fita magnética, Esses equipamentos 
executam todos os serviços administrativos da CTBC, e possibilitam a 
agilização do atendimento aos clientes. x A Fecnocoop industrial 
lançou no mercado sua linha 8000 de impressoras composta pelos mo- 
delos TEC 9011 e TEC 9015, com velocidade de 1100 e 1500 LPM 
respectivamente. A empresa pretende comercializar esse ano 200 má- 
quinas dos novos modelos. Em São Paulo, a fecnocaop Industrial é 
representada com exclusividade peta OPT Informática, e no Rito maio- 
res informações sobre as impressoras da linha 90G0 podem ser obtidas 
na própria Tecnocoop, rua do Carmo, 11/49 andar. + O Centro Oti- 
co Comércio e indústria Ltda., tradicional revendedor mineiro de len- 
tes de contato e armação de óculos, inaugurou recentemente um show 
room para vendas e demonstrações de micros. Além de hardware, a 
empresa também comerciará software (inclusive por encomenda), dará 
orientação técnica e cursos noturnos de linguagem BASIC. Informa- 
ções pelo telefone (031) 225-2599, ramal 42, Belo Horizonte, MG. 














A Companhia de Desenvolvi- 
mento. do Planalto Central — 
Codeplan está para implantar, 
em Brasília, uma software-house 
pública, que irá permitir aos pro- 
fissionais de software que não 
dispõem de equipamentos de- 
senvolver os seus programas, 
sem nenhum ônus, em máquinas 
cedidas pelo governo do Distrito 
Federal. 

Para tanto, a Codeplan está 
instalando um centro de proces- 
samento de dados que irá funcio- 
nar 24 horas por dia, os sete dias 
da semana. Os gastos com im- 
plantação e manutenção do cen- 
tro, tais como suprimentos, ener- 
gia elétrica, pessoal e segurança 
correrão por conta do governo 
do Distrito Federal, enquanto 
que os equipamentos deverão 
ser fornecidos pelos fabricantes, 
que também serão responsáveis 
pela sua instalação e manuten- 
ção. Esses equipamentos pode- 
rão ser desde microcomputado- 
res até terminais de vídeo liga- 
dos a grandes computadores ins- 
talados remotamente, 

O sistema irá funcionar da 
seguinte maneira, de acordo 
com documento divulgado pela 
Secretaria de Governo do DF: 


qualquer cidadão do DF, desde: 


que cadastrado na Codeplan atra- 


criação de so fi 





vás da entrega de curriculum 
adequado, poderá apresentar um 
projeto para o desenvolvimento 
de software aplicativo. Em pra- 
zo nunça superior a 72 horas, a 
Codceplan julgará se o projeto é 
aceitável ou não e, em caso afir- 
mativo, indicará o equipamento 
e o horário que estarão reser- 
vados ao interessado, bem como 
o tota! de horas em que ele po: 
derá dispor do equipamento les- 
se total poderá ser ampliado em 
até 50%, a critório da Codeplan). 
O software desenvolvido será 
propriedade de quem o desen- 
volveu e, ao término da imple- 
mentação, a Codeplan analisará 
a sua viabilidade comercial. 


A criação da software-house 
pública faz parte de um esforço 
que O governo do Distrito Fede- 
ral vem realizando com vistas a 
estabelecer em Brasília um pólo 
de Informática, sobretudo no 
que diz respeito à indústria de 
softwara. No ano passado, den- 
tro do de um plano de moderni- 
zação administrativa, o governo 
da capital federai gastou perto 
de Crê 2 bilhões em produtos e 
serviços de Informática, sendo 
que 60% desses recursos desti- 
nou-se à contratação de softwa- 
rahouses locais. 


Comunicação de dados 
cresce 90% em 1983 


“À comunicação de dados foi o segmento que mais cresceu em 1983 
dentre os serviços oferecidos pela Embratei: 90%. De acordo com a em- 


“presa, os-circuitos nacionais faturados, que totalizavam + mil 999 em 


1982, chegaram a 3 mil 649 em fins do ano passado, atendendo a cer- 
ca de 900 empresas espalhadas por mais de 200 localidades do país. 
Na área internacional, os serviços Airdata, Interdata e Findata eram 
utilizados, em dezembro da 1983, por mais de 100 usuários, De 1979 
a 1983, os serviços de comunicação de dados apresentaram um cresci- 
mento anual médio de 179%, informou a Embratel. 





DGT-1000 na escola 





"nova fábrica de periféricos e comunicou à lançamento de seus novos 










A Digitus acaba de lançar, para o DGT-1000, uma Unidade Con- 


troladora de Terminais Educacionais (UCTE) que permite a comuni- : de 
cação entre um micro central e 16 secundários através da porta de con 
cassete, visando incentivar a utilização de seu novo equipamento em no 
centros educacionais, cursos monitorizados, escritórios etc. | ão] 

O sistema permite ao instrutor, via computador central, carregar' Fei 
programas nas estações individuais, podendo aplicar provas e obter : obj 
as respostas automaticamente gravadas nos disquetes de seu compu- I sum 
tador pára posterior avaliação. Nas estações, os digitadores ou estu- ana 
dantes também podem gravar programas diretamente nó computa- rec] 
dor do instrutor e ainda utilizar o seu equipamento independente- fo 
mente. 

A configuração necessária para o DGT-1000 central é de 48 Kb | 





dr 


de memória e disk drive; os outros 16 micros podem ser de configu- 
ração mínima, ou seja, UCP de 18 Kb e monitor de vídeo. 





Ringo com impressora 


A partir de agora, qualquer partir do teclado do micro; Ca- 
programa desenvolvido no Rin- dastro, que mantém na memó- «. 
go já pode ser impresso. A Ritas ria do equipamento todos os da- 
do Brasil acaba de colocar no dos sobre clientes e fornecedo- 
mercado a interface que possi- res,e o Editor Z 80, para aque- 
bilita a ligação do Ringo com les que quiserem desenvolver 
impressora ou com máquina de seus próprios programas. A Ri- 
escrever elótrica. O Ringo pode tas fornece também cartuchos 
também se comunicar com ou- virgens para os usuários que gui- 
tro computador do mesmo mo- | serem gravar programas originais 
delo por meio de telefone, atra- em ERROM, entre outras coisas. 
vés de Modem. E já estão dispo- O Ringo tem uma velocidade de 
níveis alguns cartuchos para O e lei de fi d 
Ringo, entre Os quais Órgão, gravação e ertura de À nas de 
que faz com que o usuário pos- 2400 bps, bastante rápida para 
sa compor e executar músicas a um micro de sua faixa. 


= 











Nova fábrica, 
novos periféricos 


A Elebra Informática, ao completar cinço anos, apresentou sua 





produtos. São eles: duas unidades de disco magnétiço Winchester, 
uma de 340 Mbytes e outra de 515 Mbytes, e uma unidade de fita 
magnética Streammer, com densidade de 1600 a 6250 BPI. Álvaro 
Nascimento, Diretor da Elebra, defende a manutenção da reserva de 
mercado para que os investimentos em pesquisa prossigam. Ela afir- 
mou ainda que, de um faturamento estimado em Cr$ 150 bilhões, 
para esse ano, cerca de 25% virão da exportação de placas eletrôni- 
cas, vendidas para a empresa americana Control Data. Os diretores 
da Elebra garantem que no ano que vem os seus produtos já terão 
preços competitivos no mercado internacional. Hoje a empresa ex- 
porta para 9 América Latina, mas pretende atingir também os mer- 
cados americano a europeu. 


DM oe | 


UNITRON À TODA FORÇA 


“Desconfie dos preços muito baixos porque 
você pode estar comprando material encalha- 
do ou de origem duvidosa.” A advertência é 
do diretor presidente da Unitron, Geraldo An- 
tunes, ao referir-se aos inúmeros modelos com- 
patíveis com o Apple lançados no mercado re- 
centemente. Segundo Geraído, estes novos 
equipamentos à preços chamativos atingem 
principalmente o público formado por pessoas 
físicas e profissionais liberais, O que vem a fir- 
mar ainda mais uma antiga posição da Unitron: 
dirigir seu produto ao setor profissional. 

Dentro desta estratégia, a empresa já está 
colocando no mercado vários periféricos op- 
cionais, como drive para disquetes de 8", te- 


clado profissional acrescido de numérico redu- 


zido e um monitor de vídeo fabricado pela. 


própria Unitron. A empresa está fornecendo 
tarnbém a linha completa de expansões para O 
seu equipamento, incluindo o cartão controla- 
dor de instrumentação, padrão HP, que permi- 
te ligar o AP H a aparelhos como analisador 
de assinaturas é scanner, gerador de varreduras 
para controle de processos (ambos fabricados 
pela Hewlett-Packard). 

Entre os planos para um futuro próximo, 
a Unitron pretende aperfeiçoar a área gráfica, 
e neste sentido já estão sendo desenvolvidos 
projetos de vídeo a cores, software específico 
para este setor e prancheta digitalizadora. A 
área de CAD é um outro setor onde a Unitron 


está investindo, visando a obtenção de um 
acessório barato para desenho técnico e desen- 
volvimento de circuitos impressos, entre ou- 
tras aplicações. 

Disponibilidade de software para o seu equi- 
pamento é outra preocupação da Unitron, 
que no momento está credenciando software 
houses com atenção voltada principalmente 
para as áreas de transporte, educação, saúce e 
hotelaria. “Nossa meta”, explica Geraldo An- 
tunes, “é prover de software para as várias 
áreas de aplicação todos os pontos de venda 
do AP Il. Este é o melhor investimento de 
marketing que podemos fazer — software a 
baixo custo para o usuário”, conclui. 
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Informática em Ribeirão Preto 


Com a finalidade de oferecer às empresas 
de computação a oportunidade de exporem, 
com vendas diretas, seus produtos e serviços 
no interior de São Paulo, o.SENAC de Ribei- 
rão Preto realizou, de 25 a 28 de abril, a | 
Feira de Informática da região. A iniciativa 
objetivou ainda proporcionar ao público con» 
sumidor e em geral a chance de conhecer, 
analisar e avaliar os produtos e serviços afe- 
recidos pelo atual mercado nacional de In- 
formática, 

Várias empresas estiveram presentes na 
Feira, entre elas a Prológica, Microdigital 
(que aproveitou a ocpsido para lançar no in- 
terior do Estado o iseu TK2000), Dismac, 
Digitus, Polymax e Unitron, A grande atra- 





vendido também am lojas especializadas, 


Craft II, o Apple da Mi 


Nos primeiros dias ce abril os jornais de São Paulo anunciavam que um novo micro- 
computador da linha Apple estava sendo lançado a um preço especial de Cr$ 1 milhão e 
90 mil, com exclusividade no Mappin, um dos maiores magazines da cidade. Tratava-se 
do Craft |, da Microcraft, empresa já conhecida na área de informática pela fabricação 
de placas para microcomputadores da linha Apple. 


A escolha do Mappin, por seu poder de penetração junto ao público consumidor, 
teve resposta imediata: a previsão de vendas de 150 equipamentos no primeiro mês es- 
tourou nas duas primeiras semanas, e a partir do mês de maio o micro já estará sendo 


ção, no entanto, ficou por conta da Memo- 
cais, empresa de Ribeirão Preto especiali- 
zada ma revenda de microcomputadores e 
periféricos que vêm se destacando na produção 
de software para as áreas comercial, de En- 
genharia Civil e, principalmente, educacional. 

Em seu estande, o maior da feira, a Memo- 
cards demonstrou o trabalho que vem desen- 
volvendo em conjunto com os alunos do 
Colégio Anglo, o qual tem resultado em uma 
série de programas específicos para a área 
educacional, tais como: Mapa do Brasit, Ca- 
racterísticas dos Animais, Verbos e Estórias 
em inglês, Introcução ds Crases à Resumo de 
Vestibulares para Microcomputadores. Com 











excessão deste último, todos os demais pro- 
gramas desta área não são comercializados. 
Paralelamente à Feira, realizouse também 
o Il Simpósio de Informática, onde foram dis- 
cutidos temas ligados à evolução e perspec- 
tivas da Informática no Brasil, Na oportuni- 
dade, Ademir Potigns, gerente do SENAC e 
organizador da Feira, assegurou que, sendo 
Ribeirão Preto um importante parque cormmer- 
cial dentro do Estado, não pode ficar alheio 
aos progressos da Informática, e declarou: 
“Nárias empresas da região já estão na era da 
computação, mas ainda há as que precisam 
melhorar o seu desempenho; esta É a nossa 
principal preocupação ao promovermos even- 
tos desta natureza”. 





Microtecla 


Foi inaugurada recentemente em Franca, 
interior de São Paulo, a Microtecla, loja espe- 
cializada na comercialização de microcompu- 
tadores pessoais e profissionais. Na nova loja 
podem ser encontrados equipamentos da 
Labo, Prológica, Dismac, Unitron e Microdigi- 
tal, além de suprimentos e livros e revistas da 
área. No departamento denominado Bouti- 
que, encontram-se calculadoras, fitas, jogos, 
relógios-game e videogames. A Microtecla fica 
na Rua Major Caludiano, nº. 1.445, Franca, 





Segundo Jae Yoon, diretor da Microcraft, o objetivo da empresa ao lançar o Craft 
foi oferecer um Apple profissional a um preço intermediário entre esta faixa e a faixa dos 
pessoais. Sua configuração básica é composta por UCP com microprocessador 6502, 48 
Kb de memória RAM, 12 Kb de ROM, teclado alfanumérico com auto repetição e cito 
slots de expansão para conexão de cartões periféricos (todos os cartões fabricados pela 
Microcraft podem ser conectados diretamente no Craft !1). O novo micro tem saída para 
gravador cassete, opção para trabalhar com disquetes, e O usuário poderá utilizar uma 
televisão comum (preto é branço ou colorida) ou monitor de vídeo. O Craft Il é total- 


São Paulo, tel.: (016) 722-2820. m 
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lares nacionais. 


Computação 
no escritório 


As últimas novidades em equipamentos, 
utensílios e serviços de escritório, inclusive na 
área de processamento de dados e teleproces- 
samento, com tecnologia nacional ou estran- 
geira, serão apresentados na nova FUSE — 
Feira Internacional de Utensrtios e Serviços 
de Escritório, que se realizará em São Paulo 
entre 20 e 24 de junho próxima, 

Patrocinada pela Federação Nacional dos 
Bancos e pela Federação Brasileira de Bancos, 
a FUSE estará montada no pavilhão de ex- 
posições do Parque Anhembi e, além do se- 
tor de automação de escritórios, estará divi- 
dida em comunicação e telecomunicação; ar- 
quivo, classificação e microfilmagem: instala- 
ção e mobiliário; máquinas de escrever, cál- 


culo, contabilidade, processamento de dinhei- 


ro e cheques, acessórios e materiais; contro- 
les visuais e relógios; segurança e controle; 
artigos de papelaria, desenho e escrita; con- 
sultoria e assessoria; brindes; serviços em ge- 
ral; publicações; ensino e pesquisa: bancos, 

A Feira funcionará no horário comercial, 
diariamente, inclusive aos sábados e domingos. 
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mente compatível, tanto em hardware quanto em software, com o Apple IF e seus simi- 


















Convênio 
SENAIÍ-CTI 


O SENAI SP e o Centro Tecnológico para 








Informática assinaram um convênio para a 


realização de atividades conjuntas de pesquisa, 
desenvolvimento e produção de máquinas e 
equipamentos didáticos. Esse material será 
utilizado no ensino de Informática e Auto- 
mação Industrial, como parte de projetos des- 
tinados à formação pelo SENAI de recursos 
humanos para indústrias do setor de eletrôni- 
ca. À primeira atividade conjunta já está em 
andamento: trata-se do treinamento de téç- 
nicos do SENAI paulista, docentes nas áreas 
de eletrônica, mecânica de precisão e instru- 
mentação, além de técnicos em supervisão de 
ensino e material didático, nas áreas de ro- 
bótica industrial e sistemas operacionais para 
microcomputadores. Após O treinamento, 
esses técnicos vão desenvolver projetos de 
construção de equipamentos didáticos de au- 
tomação industrial e de equipamentos didáti- 
cos para o ensino de informática. 








PARA VOCÊ 
PARTICIPE COM 
SUA OPINIÃO 


Escreva-nos di- 
zendo qual a sua 
área de interesse, 
conte-nos tam- 
bém as suas expe- 
riências com seu 
micro, o que 
VOCÊ quer ver 
publicado em MS, o que você acha 
da sua MS, enfim, diga tudo que 
torne MICRO SISTEMAS ainda 
mais feita para você. 

E lembre-se: todo leitor que nos 
escreve concorre automaticamente 
a uma assinatura de um ano de 
nossa MICRO SISTEMAS. Mande 
logo sua opinião para Redação de 
MICRO SISTEMAS no Rio de 
Janeiro ou em São Paulo: Av, 
Presidente Wilson, 165/grupo 
1210 - Centro - CEP 20030 - 

Rio de Janeiro - RJ; Rua Oliveira 
Dias, 153 - Jardim Paulista - CEP 
01433 - São Paulo - SP, 

















Antes de apficar seu rico dinheirinho, calcule, com seu micro da linha 
Sinclair, os juros, o montante ou o capita! de investimento. 








Para bom investimento, 
um micro pessoal basta 


ste programa, elaborado em um 
TK82-C, tem a finalidade de cal- 
cular algumas variáveis financei- 
ras a partir de valores conhecidos. 
As variáveis previstas no programa são: 
.P— principal, ou seja, o capital no dia 
de hoje (capital no início da con- 
tagem dos períodos de capitaliza- 
ção); 
.S — montante, ou seja, o capital no fi- 
nal do período (capital no final da 
contagem dos períodos de capita- 


lização); 

-N — número de períodos de capitaliza- 
ção; 

.1— taxa de juros por período de capi- 
talização; 


.J — taxa de juros compostos em N pe- 
ríodos de capitalização; 

. R— série uniforme de pagamentos, ou 
seja, série uniforme de valores de 
retirada ou entrada, sendo cada 
parcela entendida como no final 
de cada período. 

O programa funciona de acordo 
com a tabela apresentada na figu- 
ral. 


COMO PROCEDER 


Veja agora, através de dois exemplos, 
como funciona o programa. 

1 — Quanto teremos daqui a 12 me- 
ses se aplicarmos hojé Cr$ 1.000,00 a 
2,5% ao mês? 
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a) São dados: N = 12,P= 100000€e1 
= 2,5; deseja-se calcular S. 
b) Digita-se o código que representa o 
problema (no caso, achar S a partir de 
N, Pel,ou seja, código 0). 


CALCULA CÓDIGO 
Q 


5 
P 
N 
I 
R 
Pp 
N 
I 
5 
R 
N 
I 


-—+ O AD Co Jo OM too O — 


O 


Figura 1 


c) Introduzem-se os valores na ordem 
pedida. 
d) Obtém-se a resposta: 8 = 1344,88. 

2 — Um vendedor de carros apresenta 
um Volks usado por Cr$ 100 mil de en- 
trada, mais 12 prestações de Cr$ 50 mil. 
O preço à vista é de Cr$ 350 mil. Qual a 
taxa de juros do financiamento? 

a) São dados: P = 350.000 — 100000 


= 250000,N = 12e R= 50.000; de- 
seja-se calcular É. 

b) Digita-se 7. 

c) Introduzem-se os dados. 

d) Resposta: L= 16,94%. 





OUTROS EXEMPLOS 


3 — Quanto devo pagar hoje para ter 
o direito de receber Cr$ 10 mil daqui a 
cinco anos, a juros de 10% ao ano? 


S= 10,000 
N=5 
T-10 


Resposta: P= 6209721 

4 — Um empresário pretende fazer 
um investimento que renderá Cr$ 100 
mil por ano, nos próximos 10 anos. Qual 
o valor do investimento, sabendo que a 
taxa de juros é de 6% ao ano? 


R = 100.000 
N-= 10 
I = 6%aa 


Resposta: P = 736.008,71 

5 — Quanto devemos depositar semes- 
tralmente numa conta a prazo fixo, que 
paga juros de 12% por semestre, para ter- 
mos Cr$ 50 mil daqui a sete anos? 
I = 12%ao semestre 
S = 50.000 
N=7x2= 14 semestres 
Resposta: R= 1543,56 

6 — Quais os juros mensais equivalen- 
tes a 34,4% ao ano? 
J= 344% aa 
N = 12 meses 
Resposta:I = 2,49%ao mês 


MICRO SISTEMAS, maio/84 

















“Cálculo de Parâmetros Financeiros 


10 REM "FINANCEIRO" UZA O NUMERO DE CODIGO E NEWLINE 495 INPUT I 
15 CLS " 500 PRINT "INTRODUZA N” 
17 PRINT 210 INPUT COD 505 INPUT N H 
20 PRINT "ESTE PROGRAMA CALCUL 220 530 CLS E 
A ALGUNS" 230 IF COD=0 THEN GOTO 540 LET P=S/(1+1/100) **N 
30 PRINT “PARAMETROS FINANCEIR 240 IF COD=1 THEN GOTO 550 PRINT "P=":P j 
: 250 COD=2 THEN GOTO 555 PRINT : 
PRINT 260 
PRINT " DADOS 270 


COD=3 THEN GOTO 560 PRINT "S=";S 
COD=4 THEN GOTO 565 PRINT 
CODIGO" 280 cob=5 THEN GOTO 570 PRINT "I=";I 
PRINT " 290 COD=6 THEN GOTO 575 PRINT 
300 COD=7 THEN GOTO 580 PRINT "N=";N 
310 COD=8 THEN GOTO 590 coTO 1890 | 
320 COD=9 THEN GOTO 600 PRINT "INTRODUZA 5" 
330 COD=10 THEN GOTO 605 INPUT 8 
340 CoD=11 THEN GOTO 610 PRINT "INTRODUZA P" 
350 COD>11 THEN GOTO 615 INPUT P 
360 PRINT "INTRODUZA P" 620 PRINT "INTRODUZA I" 
365 INPUT P 625-INPUT I 
370 PRINT "INTRODUZA I” 650 CLS 
375 INPUT I 660 LET N=(LN (S/P))/(LN (1+I/1 
380 PRINT "INTRODUZA N" 00)) 
390 INPUT N 670 PRINT “N=";N 
410 CLS 675 PRINT 
420 LET S=P*(1+1/100) **N 680 PRINT "B=";5 
430 PRINT "g=";s 685 PRINT 
435 PRINT 690 PRINT "p=",P 
440 PRINT "D=",p 695 PRINT 
445 PRINT 700 PRINT “I=";I 
450 PRINT “I=";1 710 GOTO 1890 
455 PRINT 720 PRINT "INTRODUZA S" 
460 PRINT "N=";N 725 INPUE S 
470 coro 1890 730 PRINT "INTRODUZA P” 
480 PRINT "INTRODUZA S" 735 INPUT P 
485 INPUT S 740 PRINT "INTRODUZA N” 


PRINT "PARA INICIAR, INTROD PRINT “INTRODUZA I" 745 INPUT N 





PUBLICAÇÕES PARA COMPUTADORES 
ssimecleir” 


SINCLAIR É MARCA REGISTRADA DE SINCLAIR RESEARCH LTD. 


e 30 JOGOS PARA TK 82C E CP 200 
34 Edição CR$ 6.000 


Dama - Labirinto — Enterprise = Golfe = Velha — Visita ao Castelo Cassino — 
Roleta Russa — Corrida de Cavalos — Vinte e Um — Cubo Mágico — Senha — Banca 
Imobiliário — Forca — Dados — Invasores — etc. 


* APLICAÇÕES SÉRIAS PARA TK 85 E CP 200 


32 Edição, atualizada e com nova composição gráfica CR$ 9.000 


Quem é Sinclair? — Convertendo outros Basics — Contando os Bytes — Economi- 
zando Memória -- Eluxogramas — Top Down — Erros da ROM — Conhecendo a Im- 
pressora — Chaining Programas — Sub-rotinas em Cosseite — Folha de Pagamento — 


Balancete — Correção Monetária do Imobilizado — Das Contribuições do LAPAS — 
Contas a Receber — Cadastro de Clientes — Conta Bancária — Correção de Provas — 
Processador de Textos — Estatística — Custos — Orçamento Doméstico — Ram To- 
"per e DataFile em Código — etc. 


* 45 PROGRAMAS PRONTOS PARA RODAR EM TK 82€ E NE Z800 
82 Edição, reimpressa CR$ 5.500 
Arquivos — Estoque — Plano Contábil - Folha de Pagamento — Agenda Telefônica 
Caça ao Pato -- Trilha — Jogo da Velha — Forca — Dado — Tabelas — Tabuada — 


Conversão de Coordenadas — Média — Progressão — Tabela Price — Fibonacci — De- . 


preciação - Renummerador de linhas em Código — etc... 


PROGRAMAS NO CÓDIGO DA MÁQUINA 
Inversão de Video — Som por Software — Labirinto — Destrava Soft 


e CÓDIGO DE MÁQUINA PARA TK E CP 200 


Id Edição CR$ 9.000 
Números Binários e Hexadecimais — Arquitetura do Z80 — Editando em Código -— 
Programa para Edição — As Instruções do ZB0 em Exemplos Sub-rotinas da ROM — 
A ROM de 8K — Dicionário das Instruções — Hex X Mnemônicos — Rex X Deci- 
mal — Incluindo os Programas Scroll — Save Display no Ram Top — Contadores de 
Pontos ou Tempo — Datafite — Renumber — Labirinto — som por Software — Mi- 


cron Pac — Bombardeio etc... 


Despachos para todos 05 Estados mediante Ordem de Pagamento ou Chagqua Nominal 


MICRON ELETRÔNICA COM. IND. LTDA. 





Áv. São João, 74 « Tel. (0123) 22-4194 - cep 12.200 - 5. J. Campos-5P 
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PARA BOM INVESTIMENTO, UM MICRO PESSOAL BASTA 























































































































770 CLS 1045 PRINT 1565 PRINT "INTRODUZA Nº” 
780 LET I=((S/P)**(1/N))-1 1050 PRINT "I=",I 1570 INPUT N 
790 PRINT "I=*;I*100 1055 PRINT 1580 CLS 
795 PRINT 1060 PRINT "N=";N 1590 LET R=5*(((1+1/100) **N-1) /( 
“800 PRINT "S=";S 1065 GOTO 1890 1/100)) **(-1) 
805 PRINT 1080 PRINT "INTRODUZA 1" 1600 PRINT "R=";R 
810 PRINT “"P=";P 1100 INPUT I 1605 PRINT 
815 PRINT 1105 PRINT "INTRODUZA P" 1610 PRINT "5=";5 
820 PRINT “N=";N 1110 INPUT P 1615 PRINT 
830 GOTO 1890 1115 PRINT “INTRODUZA R* 1620 PRINT "I=";I 
840 PRINT "INTRODUZA P" 1120 INPUT R 1625 PRINT 
845 INPUT P 1130 CLS 1630 PRINT "N=";N 
dé 860 PRINT "INTRODUZA I" 1132 IF R<P*1/100 THEN GOTO 2340 1640 coTo 1890 
di 870 INPUT I 1140 LET N=(LN (R/(R-P*1/100)))/ 1650 PRINT “INTRODUZA Rº 
RE 875 PRINT "INTRODUZA N" (LN (1+1/100)) 1670 INPUT R 
HE 880 INPUT N 1150 PRINT “N=";N 1675 PRINT "INTRODUZA S” 
Ry 890 CLS 1155 PRINT 1680 INPUT 5 
qd) 900 LET R=P*((1/100)/(1-(1+1/10 1160 PRINT "I=";I 1685 PRINT "INTRODUZA I" 
LE 0)**(=N))) 1165 PRINT 1690 INPUT I 
EL 910 PRINT "R=";R 1170 PRINT “p=":P 1700 CLS 
N: 915 PRINT 1175 PRINT 1710 LET N=(LN ((S*I/(100*R))+1) 
EEE 920 PRINT “P=":P 1180 PRINT "R=";R J/(LUN (1+1/100)) 
E 925 PRINT 1190 GOTO 1890 1720 PRINT “N=":N 
Já) 930 PRINT "E=",I 1200 PRINT "INTRODUZA R” 1725 PRINT 
EE 935 PRINT 1220 INPUT R 1730 PRINT “R=";R a 
E 540 PRINP "N=",N 1225 PRINT "INTRODUZA P" 1735 PRINT “ 
E 950 GOTO 1890. 1230 INPUT P 1740 PRINT "“B=";5 
EL 960 PRINT "INTRODUZA R" 1235 PRINT “INTRODUZA N" 1745 PRINT 
tt 980 INPUT R 1240 INPUE N 1750 PRINT "I=";I 
É 985 PRINT "INTRODUZA 1” 1250 CLS 1760 Goto 1890 
lt 990 INPUT 1 1255 PRINT "SE O PROCESSAMENTO D 1770 PRINT “INTRODUZA J" 
E 995 PRINT "INTRODUZA N” EMORAR" 1790 INPUT E 
UE 1000 INPUT W 1256 PRENT "MAIS QUE 2 MIN CONSU 1795 PRINT “INTRODUZA N 
]: 1010 CLS LTAR O" 1800 INPU? N 
Ri: 1020 LET P=R*(((T/100) /(1-(1+I/1 1257 PRINT "AUTOR DO PROGRAMA” 1810 CLS 
] 00) **(=N))) *+(=1)) 1258 PRINT “VIA MICRO SISTEMAS" 1820 LET I=((1+1/100)**(1/N)-1) * 
1030 PRINT “p=";P - 1260 LET Q=R*N +00 uren 
1035 PRINT 1270 IF Q>P THEN GOTO 1300 1830 PRINT “I=";T 
E 1040 PRINT “R=";R 1275 CLS 1835 PRINT 
Ji! 1280 PRINT "IMPOSSIVEL; REVEJA S 1840 PRINT “J=";d 
IE EUS DADOS“ 1845 PRINT 
E n + 1850 PRINT "N=";N 
| 1285 PRINT PORQUE N*R TEM QUE 5 860 ESTO 1890 
EE 1290 GOTO 17 1870 CLS , a 
É 1300 LET IO=((R*N/P) **(1/(N41))) 1875 PRINT "CODIGO =":COD;",INEX 
-1 ISTENTE," 
=(P* = t+ ** [- 1880 GOTO 17 
lo LET RO=(P*IO) /(1-(1+0) **( 1890 FOR MEIO TO 50 
1320 LET Y=ABS (R-RO) 1900 PLOT M,15 
Hj 1330 IF Y>01 THEN COTO 1390 1910 NEXT M 
EA 1335 CLS 1920 FOR K=15 TO 25 
I : 1340 PRINT "I= ". IO*100 1930 PLOT 10,K 
E 1345 PRINT 1940 NEXT K 
LÊ 1350 PRINT "R=";R 1950 FOR L=15 TO 30 
Eh 1355 PRINT 1960 PLOT 50,L 
di 1365 PRINT 1980 FOR Q=10 tO 15 
HE 1370 PRINT "N=";N 1990 PLOT 13,0 
il 1380 GOTO 1890 2000 PLOT 16,0 
! 1390 LET IO=I0+( (R-RO) /R) *LO 2010 PLOT 19,0 
Ii 1400 Goto 1310 2020 PLOT 22,0 
a: 1410 PRINT "INTRODUZA R” 2030 PLOT 25,0 
1430 INPUT R 2040 PLOT 47,0 
nO: 1435 PRINT "INTRODUZA 1º 2050 PLOT 50,0 
Fk 1445 PRINT "INTRODUZA N" 2060 PRINT AT 10,3; P 
): 1450 INPUT N 2040 PRINT AT 7,27;"s" 
] 1460 CLS 2080 PRINT AT 16,14; "SERIE""R""" 
| 1470 LET S=R*(((1+1/100) **N=1) /( 2050 PRINT AT 9,8;"I=JUROS/PERIO E 
o ENT ng=";5 2100 PRINT AT 11,8;"N=NE) DE PERL [ | 
. Ss" i 
Táso DEINT "R=f;R 2120 PRINT AT 14,26; "TEMPO" 
1495 PRINT 2300 PRINT AT 20,0;"PARA CONTINU 40 
1500 PRINT “T=";I AR DIGITE 1º! "| : 
1505 PRINT 2310 INPUT W É 
1510 PRINT -"N=":N 5330 IF W=1 fHEN GOTO 15 É 
STOP 
1550 INPUT 5 1/100 SEMPRE" 
1555 PRINT "INTRODUZA 1” 2350 GOTO 17 
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Armando Oscar Cavanha Filho é Engenheiro Mecânico formado pela Universidade 
Federal do Paraná. 
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Cr$ 449.950,00 


O microcomputador Ringo R-470 é, disparado, o melhor em sua categoria. É mais rápido na execução de programas, oferece amplas possibilidades de 
expansão e é o único micro totalmente projetado e desenvolvido no Brasil, aprovado pela SEI - Secretaria Especial de Informática. 

Um verdadeiro herói nacional. 

im dei "a com ele para resolver problemas pessoais ou profissionais, ou simplesmente para se divertir, através de vários jogos disponíveis em 

cartuchos ou fitas. 

Aliás, cartucho é o que não falta para o Ringo. Ele é compatível com todos os programas do famoso Sinclair e possui equipamentos periféricos 
exclusivos que ampliam muito a sua capacidade. 

Compare o Ringo R-470 com os similares e comprove: nunca apareceu um micro pessoal tão profissional por estas redondezas. 


CARACTERISTICAS TÉCNICAS: * Resolução gráfica 64 x 44 pixels (unidade gráfica), podendo atingir uma À venda nas lojas especializadas em micros, 

* Linguagem Basic e códigos de máquina Z.80 matriz de 256 x 192 quando utilizado com cartuchos foto-vídeo-som e grandes magazines. 

» 8 KBytes ROM expandível para 16 K Bytes * Cálculos aritméticos, funções trigonométricas, logarítmicas e lógicas Não encontrando o Ringo nestes locais, ligue para 

* 16 KBytes RAM expandivel para 48 K Bytes * Cartuchos "Instant Soft (programas aplicativos em ROM - exclusivo) 217.8400 (SP) ou (011) 800.8441 e 800.8442 (Outras 

» Ulizável em qualquer TV P&B ou cores * Velocidade de gravação em fita cassete 2.400 BPS localidades do Brasil). DDD gratuito. 

e Conector para Joystick (jogos) EXPANSÕES: 

Teclado tipo QWERTY com 49 teclas e 155 funções - teclas de edição * Gravador de EPROM para gravar, editar e copiar programas em cartucho RE ice) [Re=/a7/(0) 
(movimentação de cursor e correção) com repetição autemática º Interface para impressora ou máquina de escrever elétrica 

* Exclusiva tecla de inversão de vídeo » Sintetizador de sons O micro que aceita desafios. 

* Tela com 24 linhas de 32 colunas para texto * MODEM (Comunicação telefônica - 1.200 Bauds) Ritas do Brasil Ltda. - Divisão Informática 


* Preço sujeito a alteração Telex (011) 34673 Rita BR 





Enxadrista experiente, Luciano Mito de An- 
drade já escraveu para os jornais “Correio da 
Manhã”, 
ra a revista “Fatos & Fotos”. 


“Data News” à “Ultima Hora” e pa- 
Luciano é econo- 
mista, trabalhando no Ministério da Farenda, 
no Rig de Janeiro. As opiniões e comentários 
de Luciano Nilo de Andrade, bem como as 
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últimas novidades do Xadrez jogado por com- 
putadores, 
MICRO SISTEMAS. 


estarão sempre presentes em 


Qual o melhor micro? 


sta é uma pergunta que muitos 
leitores me fazem, difícil de res- 
ponder dada a crescente evolu- 


ção tecnológica da microinformática " 


que a cada dia nos surpreende com equi- 
pamentos dotados de recursos mais e 
mais apurados. Mas podemos, hoje, ci- 
tar o Elite AS, o qual venceu o Il Cam- 
peonato Mundial de Micros realizado no 
final do ano passado, cujos resultados já 
foram divulgados nesta seção (há que 
considerar que o emparceiramento ado- 
tado foi o suíço, o que dá azo ao fator 
sorte), 

Em testes realizados agui no Rio, ele 
ligeiramente se impôs por jogar melhor 
as aberturas, graças à sua maior memória 
e leve superioridade na fase final. Em 
confronto com o Constellation, apare- 
lho que custa metade do preço do Elite, 
o escore continua empatado depois de 
jogadas quatro partidas. Duas relâmpago 
e duas pensadas. Estas duas últimas vão 
a seguir reproduzidas para que o leitor 
possa fazer seu próprio julgamento. 


Elite A/S x Constellation 
Rio, março de 1984 


1 — C3BR P4D: 2 — P4BD P5D;3 — 
P3SCR P4BD; 4 — BZ2C C3BD; 5 — 00 
C3B; 6 — P3D P4R; 7 — D4T B2D;8 — 
B2D C5SCR;9 — P3TR C3B; 10 — CIT 
B2R; 11 — D3C DIB; 12 — CxP(?!). 
Uma ousada entrega de duas peças por 
“Uma torre e dois peões. 12 — ...CxC; 13 

— BxP D1D; 14 — BxT DxB; 15 — C5C 
0-0; 16 — R2T P3TD; 17 — P4B C(4)5C+:; 
18 — PxC CxP+; 19 — RIC PxC. O E/i- 
te, afinal, não conseguiu mostrar o que 
queria com o sacrifício do cavalo na 
122 jogada. 20 — PxP B3R; 21 — D3T 
D4D!; 22 — TD1R TT; 23 — B5T(?) 
D4T; 24 — T2B B1D; 25 — BxB TxD; 
26 — PxT CxT; 27 — RxC D7T+; 28 — 
R3B BdD+; 29 — P4R D7D; 30 — 
PxB DxT; 31 — P6D D6R+; 32 — R4C 
P4T+ e as branças abandonaram porque 
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Diagrama A — Posição 
depois de 32 — R4€ P4T+! 
As brancas jogaram 33 — 
RxP DxPC; 34 — P7D 
R2T;35 — PSB P3C+; 

36 — PxP PxP mate. 
Observação: cada micro 
dispunha de duas horas 
para cada 40 jogadas. 


Diagrama B — Posição 
depois de 16 — 0007) 
TxP! Observação: cada 
micro dispunha de duas 
horas para cada 40 jogadas, 


mai 


Diagrama € — Posição 
depois de 19 — BxB, As 
pretas anunciaram mate em 
quatro jogadas começando 
com 19 — ...D5T!; 20 — 
B7B+ RIB; 21 — TIR 
T8T;22 — R2C D6T mate! 





previram que levariam mate em quatro 
jogadas (veja o diagrama A). 


Constellation x Elite A/S 
Rio, março de 1984 


1 — P4D P4D; 2 — P4BD P3R; 3 — 
C3BR C3BR; 4 — C3B P3B; 5 — B5C 
PxP; 6 — P4R P4CD; 7 — PBR P3TR; 
8 — PxC. Comentando esta continuação, 
há 30 anos, S. Tartakower declarou ser 
esta uma continuação umpromising de- 
pois da seguinte sequência: 8 — ...PxB; 
9 — PxP BxP etc. O Constellation não 
pensa assim. Bom, o resultado logo sabe- 
remos. 8 — ..PxB;9 — C(3BR)xP DxPB; 
10 — C(B)4R DID; 11 — B2R P5C; 12 
— C4T T5T; 13 — P3B P4BR; 14 — 
P3CR T3T; 15 — CR5B B3D; 16 — 
0-0(?) TxP! e as pretas fragmentam a 
estrutura de peões que protegia o mo- 
narca branco (veja o diagrama B). 

17 — CxPR(?) (as brancas estão deso- 
rientadas). Maior resistência ofereceriam 


- com P4B, o que já deveriam ter feito no 


seu 16º lance. 17 — ...BxC; 18 — BxP 
BxP! As pretas rejeitam o ganho fácil 





do bispo para ameaçarem mate, 19 — 
BxB e as pretas (o Elite) anunciam mate 
em quatro jogadas (veja o diagrama C). 





CONTINUE JULGANDO 


Abente x Netto 
Paraguai, 1983 


Diagrama D — 
Às pretas 
jogam e dão 
mate em seis 
jogadas. O 
Elite gastou 
4m ds para 
encontrar q 
resposta e o 
Super 9 
precisou de 
em 8s. 


Solução do problema 


jessu HELL — 9:+198 
qxH — 5 “+HOg9A ZH — + “+uBa LXH — E 
“jirHOBL D2H— 2 '+HOL — | — q euesbeig 





Li 
ER 
MICRO SISTEMAS, maio/84 











WU 








+ OBS. DIFERENTES CPU'S E PERIFÉRICOS DE SUA PREFERÊNCIA 


INÉDITO NO BRASIL 


A Cetus lança o CS-1000. Um 
nodo capaz de alimentar a 
vontade dos seus computadores 
realizando as funções de 
comunicação indispensável e 
minimizando os custos 
operacionais. 

O €S-1000 é uma dessas 
grandes idéias que chegam para 
ficar. 





O QUE É O €S-1000 


Como pioneira na 
implantação de redes locais, a 
Cetus traz o CS-1000 para 
permitir a expansão ilimitada do 
processamento, antes realizado 
por um grande computador de 
capacidade limitada. 

Ele permite a interligação de 
computadores, 
microcomputadores e 
periféricos, sem nenhum 
controlador centralizador de 
rede, fazendo com que as 
operações dos'componentes na 
rede não sejam prejudicadas 
pela falha de um ou mais 
elementos. 











" LIGUESE 
"NACETUS 


a DES LOCAIS 





Os nodos €CS-1000 têm, na 
função de interface, a 
capacidade de realizar os 
protocolos da rede, método de 
acesso, integridade da 
comunicação, endereçamento, 
transferência de dados, 
empacotamento de mensagens, 
controle de fluxo, temporizações, 
detecção e recuperação em caso 
de falhas, liberando os 
equipamentos usuários dessas 
tarefas. 


O INÍCIO DA REDE 
PODE SER UM MICRO 


Para capacitar a rede em 
função da necessidade, os 
equipamentos adquiridos são 
progressivamente interligados. 





-O €8-1000 é um elemento 


inteligente que, ligado à rede, 
permite comunicação 
simultânea e independente entre 
todos os elementos, dois a dois 
no mínimo, Sua Rede Local vai 
crescendo a medida das suas 
necessidades até 255 elementos 
(computadores, impressoras, 
terminais, discos, etc.) que se 
interligam através de um 
simples par de fios trançados. 











REDE LOCAL 
CETUS 


A partir de agora, com a Rede 
Local Cetus e o €CS-1000, o seu 
sistema vai evoluir tanto, mas 
tanto, que o processamento no 
Brasil vai passar a ter duas 
datas. Uma, anterior, ao CS- 
1000. A outra, após o 


surgimento da Rede Local 
Cetus. 


FILIADA A ABICOMP 


Rua Alte. Cochrane, 206 

Tijuca —- Rio de Janeiro 

Tels.: (021) 284-7075 ou 
2841-6659 . 


Cetu” 
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Esta dica de programação vai para os usuários da linha TRS-80: como reservar 
espaço na memória para carregar rotinas em linguagem de máquina 
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Abrindo espaço para | 
a linguagem de máquina 





José Ricardo Flores Rodrigues 
em e A 


ários usuários de micros da li- 

nha TRS-80 encontram certa 

dificuldade quando precisam 

reservar espaço na memária 
para carregar um programa em lingua- 
gem de máquina. A idéia corrente é que, 
se o computador já estiver ligado, terá 
que ser desligado quando surgir PROTE- 
GER para reservar a área, Na verdade, 
porém, isto não é necessário: basta utili- 
zarmos a função VARPTR — Variable 
Pointer Function. 


VARPTR nos permite encontrar a lo- 
calização do índice de qualquer variável. 
À partir daí, mandamos q computador 
calcular a sua localização e armazenar 





Listagem 1 






O CLS 
À CLEAR: ST$="123456789012345678 
901234567590" 

2 I=VARPTR(ST$): 'I = LOCALIZACA 
O DO INDICE DA VAR, ST$ 

3 LSB=PEEK (I+1): 'LSB = BYTE MEN 
OS SIGNIFICATIVO DA VAR. ST$ 

4 MSB=PEEK (1+2): 'MSB = BYTE MAI 
S SIGNIFICATIVO DA VAR. ST$ 

5 L= LSB + 256 * MSB: 'L = LOCAL 
IZAÇAO DA VAR. ST$ 

6 FOR Z=1 TO LEN(ST$) 

7 PRINTGO, "CODIGO GRAFICO (128/2 
35) ";: INPUT Co 

8 POKE L+2-1,CG 

9 PRINTQ470,ST$ ” 

LO NEXT 















40 





nossa rotina em linguagem de máquina 
dentro desta variável. 

Digite o programa que está na lista- 
gem 1 para ver como funciona. Feito 
isso, digite RUN e entre com os seguin- 
tes códigos: 


128 156 128 136 148 251 
168 159 189 159 189 251 
130 171135 175 131 25] 
128 176 187 177 144 25] 


128 160 151 181 128 128 


Você acabou de colocar caracteres 
gráficos dentro da string ST$. O códi- 
go 251 imprime 59 espaços em branco. 
Dê um PRINT ST$ e logo após um 
LIST 1. Notou que coisa horrivelmente 
interessante ficou a variável ST$ ? Para 
evitar que o conteúdo do ST$ fique 
desta forma, utilize ST$ = STRINGS$ 
(30,0); e antes de continuar, entre com 
o seguinte: FOR A =0 TO 800 STEP 
70: CLS: PRINT E A, ST$:: NEXT. 

A partir do momento em que a ro- 
tina em linguagem de máquina estiver 
armazenada na memória, executá-la 
num programa escrito em BASIC é 
bem simples se utilizarmos a função 
USR. Existem, entretanto, alguns de- 
talhes que você já sabe mas que seu 
computador precisa ser informado 
através do programa. 


Você precisa informar, por exem- 
plo, se está trabalhando com disco ou 
fita, Experimente usar: 


CLS: IF PEEK (16396) 
201 PRINT "NAO ESTOU 
COM DISCO! E VOCE SA 
BE" 

ELSE "CLARO QUE SIM 
SEU TOLO" 


Se você não possuí sistema de disco, 
use o POKE nas posições 16526 e 
16527; caso contrário, utilize a função 
DEFUSR = L. Resumindo: 


IF PEEK (16396) = 201 


POKE 16526, LS: POKE > 
16527, MS ELSE DEFUSR 
=], , ad 


É importante também trabalhar 
sempre em localizações de memória 
compatíveis com a capacidade de seu 
computador, ou seja, IF L > 32767 
L=L-— 65536. Além disso, a constan- 
te da string da linha i deverá ser sufi- 
ciente, sempre igual ou maior que a 
quantidade de itens do comando 
DATA (da rotina em linguagem de 
máquina). 
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RING$ (30,0): VE=VARPTR (ST$) 
L5+256*M5 
3 IF L>32767 L=1-65536 


=L, 

5 READ DT: IF DT=990 GOTO 15 

6 POKE L,DT: L=L+1: GOTO 5 

LO Y=USR (768+RND(10)): RETURN 
11 FOR X=1 To 15: Y=USR(768+x) 


SR(768+X): NEXT: RETURN 


Listagem 2. 
1 DEFINT A-Z: CLEAR 100: ST$= sT 


2 LS=PEEK (V+1): MS=PEER (V+2): L= 


2 IF PEEK(16396)= 201 POKE 1652 
6,LS: POKE 16527, MS ELSE DEFUSR 


NEXF: FOR K=15 701 STEP -1: Y= 


50 DATA "CADA VEZ QUE VOCE ESCUT 
A ESTE BARULHINHO, ESTA! UFILIZA 
NDO A”, "LINGUAGEM DE MAQUINA ATR 
AVES DA FUNCAO 'USR' PELO COMAND 
0) É 1] 

60 DATA “BASIC 'GOSUB' CONTIDO N 
A LINHA 30"," 


“ 


70 DATA ” EXPERIMENTE RETI 
RAR AS LINHAS - 6, 8 E 10 DO PRO 
GRAMA","'FORMULA 1' (MICRO SIST 
EMAS NR. 16, PAG.50) E ENTRE COM 
AS" 


CP CPM 
O) NIDIAM O 6: ENCONTRA 
A SOLUÇÃO! 




















12 DATA 205,127,10,62,1,24,0,237 80 DATA “LINHAS DE 1 A 6 DESTE p 
191,61,64,69,47,230,3 ROGRAMA.","” ( NAO ESQUECER DE 
13 DATA 179,211,255,13,40,4,16,2 ENTRAR COM '990' NA LINHA 13 )", 
46,24,242,37,32,241,201,990 90 DATA "O SEU MICRO PROVIDENCIA 
ló CLS: 'PROGRAMA PRINCIPAL RA TUDO PARA VOCE. E ASSIM, NÃO 
20 READ A$:; IF A$="PIM" GOTO 130 SERA", "NECESSARIO DESLIGA-LO PAR 
















25 IF A$="]" GOSUB 11: GOTO 20 A RESPONDER PERGUNTAS COMO :", 
30 FOR A=1 TO LEN(A$): PRINT MID 100 DATA "jr! "READY?" 
$(A$,A,1);: GOSUB 10: NEXT; PRIN " 
T 110 DATA "1"," "PROTEGE 
35 GoTó 20 Rr 
40 DATA “OI, TUDO BEM?"," 120 DATA "FIM" 
: 130 GOTO 130 = OFERTA ESPECIAL DO MÊS: 
LICP-300 LITK-2000 











Para terminar, rode o programa da 
listagem 2 e veja, na prática, como vo- 
cê" deve agir para carregar suas rotinas 
em linguagem de máquina. 


José Ricardo Floras Rodrigues é formada Central Pangmericana 
em Administração de Empresas e Ciências CPM de Microinformática 
ay tábeis pela Faculdade Cândido Mendes, Pça Clóvis Bevilácqua, 121-2:and.-SP 

ú Tels (011) 32-77526 34-3057 













| A Nasajon Sistemas, uma empresa 
rem 4 especializada no desenvolvimento de 
aa programas, está lançando no mercado 
em caráter exclusivo, um completo 
sistema de Folha de Pagamento para 
microcomputadores dos tipos 
DGT 1000, CP 500, TRS 80 € outros, 
Relatórios emitidos: Relação de Em- 
pregados, Quadro de Horários, Folha 
de Pagamento, Resumo da Folha, Re- 
lação de FGTS, Guia de FGTS, Rela- 
ção de 1.R., Guia de IAPAS, Relação 
P/Banco, Recibo de Pagto., etc. 


PREÇO 
EM ORTN'S 
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MAr=reuças eos 
NOME 1 
ENDÉRECO Fo... 
CIDADEM ...,, 
FE PASERI 
HEI, DEPENDENTES 
PARTEIRA DE TRABALHO 
PARGO E iam crcremi o cocsãs 
EITLNO ESTE apegig oa a) 
MORAR IA ENTRADASSATDA no AG at 
VAL MENA ado. 
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PROGRAMA 


Controle de Estoque. 


































Mala Direta c/ Ed. Texto 25 

Contas a pagar /receber 15 a 
Tesouraria (c/saldo bancário) 15 l 
Crediário 30 , - 
Contabilidade 30 Av. Rio Branco, 45 grupo 1311 — CEP 20090 








Tel.: (021) 263-1241 — Rio do Janeiro - RJ 






Yocê encontra esses e outros programas em hossos 
revendedores credenciados, 








E opa agua 





EQUIPAMENTOS 


“Vendo APPLE IL PLUS, language 
Card 64K, Drive, US$ 5000 em 
Prog, preço 310 ORTN — Josias 
(021) 5518350 — Rj, 
e Vendo disquetes Verbatim-Da- 
talife 5 1/4, tenho várias caixas 
com 10 caga. Tratar com Jorge 
Luiz Mara, Rua Timóteo da Cos- 
ta, 444/6804, tel.: (021) 274-5329, 
RJ, 

s Vendo micro de bolso Sharp 
PC-1500, linguagem BASIC, inter- 
face para 2 cassetes e plotter com 
4 cores e 9 tipos de caracteres. Na 
embalagem e com manuais. Tel.: 
(011) 240-4140, São Paulo. 


e Traco TK 85 com 16K, joys- 
tick, gravador National, Mobyllet- 
te, 11 fitas com jogos, 2 livros 
com aplicativos e jogos de vídeo 
(TV PÊB) por CPS00, ou por 
Color 64 excluindo vídeo. Tratar 


com Carlos a partir das 7 hs em 


dias úteis, tel,: (011) 4214610 ou 
4214613. 5P. 


SOFTWARE 


e Vendo ou troco Programas 
para computadores compatíveis 
com o TRS-£0 Modelos le Il], e 
computadores de lógica Sinclair. 
Escreva para Carios Seleri, Av. 
Sernambetiba, 3.600 8% 3/1083, 
Rio de Janeiro, RJ, Cep 22.600. 


e Troco/jcompro ou vendo pro- 
gramas para TK; aos interessados 
escrever para: Sylvio Padilha Jr., 
Rua 41-€, 1939/41, Volta Redon- 
da, R$, Cep 27.180. 


e Vendo fita com programa iné- 
dito do jogo "General" (poquer 
corn dados), para micros Sinclair 
com 16K, Mandar cheque nomi- 
nal de Cr$ 7 mil. para Silvio 
Rauth, Cx. Postal 8546, Cep 
80. 000, Curitiba, PR, tel.: 254- 
2881. 


casgificádios 


CC DIVERSOS RSOS 


e Traduzo programas das TI pa- 
sa BASIC do CP-500, CP-200 «e 


- compatíveis, Traduzo, também do 


BASIC, para a linguagem das TI 
desde que não exceda a memória 
de programação. Tratar com Hélio 
da Silva Araújo, Rua Des. Souto 
Maior, 244, Centro, João Pessoa, 
Paraíba, Cep 58000, ou com Sr. 
Neilton, tet.: (083) 2219524 — 
horário comercial. Desenvolve- 
mos, também, soft nas áreas co- 
mercial e de engenharia. 


e Rádio amador: vendo interface 
para RTTY para os micros tipo 
Sinclair (TK 82/83/85 e CP-200). 
Informações com PY2-EM], Rena- 
to Strauss, Rua Cardoso de Almei- 
da 654/32, São Paulo, Cep 05013. 


e Executamos alta resolução 
gráfica na linha Sinclair: TK82-C/ 
83/85, CP-200, ZX8B1, Timex Sin- 
Clair 1000, etc. Preço de lança» 
mento Cr$ 35 mil. Acompanha 
soft explicativo. Paulo Roberto, 
tel.: 352-2710, após as 14 horas, 


e Consultas sobre BASIC ou 
Assembler do Z80, Cx. Postal 
52.041! Rio de Janeiro/RJ. 


CLUBES 


e Brasil Micro Clube, o maior 
clube do Brasil para usuários de 
todos os micros. Grandes vanta- 
gens e descontos para Nossos asso- 
ciados. Associe-se gratuitamente 
através da Cx. Postal 40088, Rio 
de Janeiro, RJ. 


Apoiado! Equipamentos, Software, Cursos, Clubes e Diversos: 
você é quem decide o que, quando e como anunciar nos 
Classificados MS. Quanto você terá que pagar? Isso também é 


decisão sua. Presta atenção: 


e cada linha de texto (30 toques, incluindo os espaços em branco) 


custa Cr$ 2.000,09: 


€ linhas incompletas serão cobradas como inteiras; 








fl 





e Gostaria de entrar em contato 
com usuários dos micros TK NE 
ou CP, para fundarmos o Micro 
Clube Natal, para troca de idéais, 
programas e informações. Tarci- 
sio Torres de Sousa, Rua Joaquim 
Manoel, 801, Petrópolis, tel.: 222- 
4891, Cep 59000, Natal/RN. 


e Gostaria de entrar em contato 
com possuidores de TK, e compa- 
tíveis, para troca de idéais, infor- 
mações e programas, (aplicativos, 
jogos). Robson D. Klein: Rua 
Vereador Adão Rodrigues de Oli- 
veira, 524, tel,: (0512) 934-285, 
Cep 93.300, Novo Hamburgo - RS. 


e Gostaria de contatar com pos- 
suidores de TRS 80-Color para 
troca de idéias, programas, ma- 
nuais e dicas. Dirijase a José Al- 
berto Cadais, OI 23 conj. 17 Casa 
É1, Lago Sul, CEP: 71600, Brasi- 
tia, DF. Tel.: (061) 571-1429. 


e Quero entrar em contato com 
possuidores do TIK-2000 Color 
para troca de programas e dicas. 
Tratar com Jorge pelo tel.: (071) 
231-1227, ou pelo endereço: 
Alameda das Cajazeiras, 43, Cami- 
nho das Árvores, Cep 40000, Sal- 
vador, Bahia. 


CURSOS 


e O SENAC está promovendo, 
de 11 a 19 de junho, o curso Im- 
plantação do Microcomputador: 
novo enfoque tecnológico e 
adrninistrativo. Esse curso é desti- 
nado a empresários, executivos, 
analistas de O & M e analistas de 
sistemas. Informações na Rua Dr. 
Vila Nova, 228, 2º andar, fone: 
(011) 256-5522, São Paulo, SP. 


SA PRO-INFORMÁTICA, SISTE- 
MAS CONSULTORIA ETREINA- 
MENTO oferece regularmente cur- 
sos de COBOL, BASIC, BASIC 
AVANÇADO e ASSEMBLY com 
turmas reduzidas. Além das aulas 
práticas, 
computadores com assistência de 
monitores em horários extra-aula, 
RUA JOSAFA BELO 100 — 337- 
8792 — CIDADE JARDIM — BE- 
LO HORIZONTE. 


“O CBI — CENTRO BRASILEI- 
RO DE INFORMÁTICA promova 
parã os meses de ABRIL/MAIO os 
cursos de BASIC, BASIC AVAN- 
ÇADO, MUNPS, COBOL, FOR- 
TRAN, ASSEMBLER, MANU- 
TENÇÃO DGT 100/1000. Tur- 
mas reduzidas, certificado de con- 
clusão e aulas práticas. Informa- 
ções na Av. Passos nº 115 Sala 215 
ou pelo telefone 233-1123. 


SA MIKRO INFORMÁTICA con- 
tinua oferecendo com sucesso os 


seguintes cursos: Informática p/jo- " 


vens, Operação e Programação de 
microcomputadores, Linguagem 
Basic e Basic Avançado. Inscrições 
e Informações à Av. Af. Pena 952/ 
522 Tal. — 222-3035 BH/MG. 


e Em Niterói, a MICROWARE 
Informática e Eletrônica promove 
reguiarmente cursos de Introdu- 
ção aos Microcomputadores, de 
linguagem BASIC e Assembler, 
com aulas práticas em equipamen- 
tos DGT-1000. As turmas são li- 
mitadas em 12 alunos. O material 
didático é gratuito e é fornecido 
certificado. Inscrições e informa- 
ções na Rua Moreira César, 229 — 
sala 1713, Shopping learaí, Nite- 
rôi, tel,: (021) 710-2780, RJ. 


e A FAAP oferece regularmente 
cursos de BASIC Básico (27 ho- 
ras) e Avançado (45 horas) nos 
TK 85, CP-200/300/500 e Júnior 
Itautec. Horários pela manhã, tar- 
dee noite. Maiores informações 
pelo tel.: (011) 6686-2147 ou 
8256-4233, ramal 59, São Pauio, 
SP. 


QUEM MANDA 
NESTA PÁGINA SOU EU! 


s o próprio anunciante deve checar o valor de seu anúncio com o 
número de linhas que ele contiver; 


* o anúncio deve vir acompanhado de um cheque nominal à ATI 


Edi itora Ltda; 


Os textos devem ser datilografados ou escritos em latra de fôrma, 
obedecendo as 30 batidas por linha. Vaja um exemplo: 





Maiores informações pelos telofones: (021) 2562-5259 — RJ ou (011) 8534-7758 — SP, 
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os alunos dispõem dos- 


- 








E PRE TER ESSO a SRARES SISTERS TE CONPUTACIO. PONE EFETUR 
fe SIMNIDADO ENTRE 05 AROS TEPSRTAMENTOS Da BPRESA 4 TER 
RCESSO jd MENORIAS MAIORES. DE MISCO RIGIDO; EM SIMA MO O 
ME PODE SER FEITO POR UMA NAGUDA “RAE ) 
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Pole O RICCO CU PS AMAR, SAO ' 

INLPESSS AS SPLIDDES POSSIVEIS Pra UM NICRICONPUTADOR ; 
PODEMOS. à TINLO DE ILUSTRCAO; TESTAR MLAING: CONTRILE TE 
CONTABILIDADE PESSOAL E EMPRESARIAL. AGEM PROSRANHÕAO E 
PCPPSNSHENTO TE CIMOGAS TE TRAB. GRÉICOS, LISTAS 
E EISSO E ETIGETOS PoRA ALA BITETA, CABSTRSMENTO E 
CONTROLE TE CLIENTES: QRLOLOS TE ESTRAINESS. AUMTIFICOO TE 
PATERÍAIS, CONTRLES DOUSTRIAIS, PROGEPRS ERUACHOMAIS E 
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| Sysda tm DANCING DEMON 


Microcomputador pessoal 





| Você só descobre o quanto precisa de um Micro-Com- 
| putador JR da Sysdata depois que o conhece de perto. 

| Você vai ter certeza de que fez um ótimo negócio ao 
* | adquirílo assim que o colocar na sua empresa ou na sua 
casa. 

RE O JR da Sysdata é rápido, é versátil, é compacto. 
| APLICAÇÕES: 

| Contabilidade, controle de contas a pagar, controle de 
| contas a receber, folha de pagamento, controle de esto- 
que, controle de clientes, relatório de clientes, mala direta, 
cálculos de orçamentos financeiros,controle de processos 
industriais, cálculos de engenharia, cálculos de estatísti- 
cas, funções matemáticas, funções lógicas em cadeia de 
caracteres (STRINGS), gráficos, jogos animados, progra- 
mas educacionais. 

O JR PERMITE AINDA: 

O acesso a grandes sistemas de computação, a comuni- 
cação entre os departamentos de Empresa, efetuar pro- 
E. gramas específicos para cada Empresa. 

E, como se não bastasse, ele é O Micro-Computador de 
É: menor preço do mercado. 
| Com todas as qualidades que tem, o JR da Sysdata nem 
precisava ser tão econômico. Mas é. 
Afinal, ele é o mais completo Micro-Computador de sua 








B 
| 
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geração. N 
Inclusive no preço. N sdafa Cep 01155 TEL: 67.5900 
Você pode testar estas e outras qualidades do JR em Re Ra 


qualquer dos nossos revendedores. 


es 


REVENDEDORES: SÃO PAULO/Capital - Ad Data 864.8200; ADP System 227.6100; Búcker 881.7995; Cinótica 36.6961: Compumarketing 212.9004; Compute 852.8533: Com- 
puteriand 231.3277; Foto Léo 35.7131; Fotótica 853.0448; Guedes 289.9051; Horst 203.5597: Interface 852.5603; Lema 210.5929; Microrei 881.0022; Miprotec 289.4941; Nova Gera- 

* ção 814.3663; O.P.A. 35.8685; Plandata 275.0181: Plantel 543.9653; Sacco 814.0598; Servimec 222.1511; Sistenac 282.6609; S.0.S. 66.7656; Runner's 469.0887: Campinas - ' 
Computer House 852.5855; Computique 32.6322; Microtok 32.4445; Rio Claro - Coml. Micro Cosmos 34.5801; Ribeirão Preto - Compusys 6235.1195 - Araras - Copec 41.3779: 
Taubaté - Ensicon 33.2252: Mogi Guaçu - Guaçumag 261.0236; Bragança Paulista - Infordata 543.5198: Bauru; Marília - Sipro 33.4109; Catanduva - Teledalto 22.8119: RIO 
DE JANEIRO /Capital - Clap 228.0734: Computique 267.1093; G D M Informática 284.8744: JR de Góes 246.4180; Kristian 391.3165; Suprimento 274.8845; Petrópolis - Foto Oti- 
ca 42.1391; MINAS GERAIS/Belo Horizonte - Compucity 226.6336; Computec 225.2617: Kemitron 225.0644; Minas Digital 337.7946; Poços de Caldas - Computique 721.5810; 











. 


Dominó é um jogo que anda meio esquecido por af. Mas o seu micro TRS-80 o redescobriu, 


ainda uma grande vantagem: ele não é 
nada temperamental. Se você o estiver 
vencendo uma partida, não correrá o ris- 
co de seu adversário esbarrar na mesa de 
jogo e, sem querer, espalhar as pedras. 

Este programa pode ser rodado em 
qualquer micro compatível com o TRS- 
80 modelo IH. Quanto às instruções de 
jogo não há muito o que dizer, uma vez 
que, além de ser um jogo muito conheci- 
do de todos, ele é auto-explicativo, ou 
seja, a cada jogada o micró lhe dirá o 
que fazer para prosseguir. 

Fica a sugestão para que os leitores 

façam modificações no programa. Por 
exemplo:.vocês podem alterar a tonali- 
dade e/ou ritmo do som ou criar dife- 
rentes níveis de dificuldade para o jogo. 
Eis aqui duas dicas: 
1) o endereço 30007 (vide linha 5010) 
determina a tonalidade do som que 
acompanha a impressão da palavra 
DOMICRO, podendo variar-de O a 225 
(do agudo para o grave); 


| 
uanto tempo faz que você 
não disputa uma partida de 
dominó? Se é por falta de ad- 
versário, eis aqui a sua opor- 
tunidade de enfrentar um ad- 
versário inédito: seu micro! E você terá 
44 





Everton Pereira 





2) caso o leitor ache o programa muito 
extenso poderá reduzi-lo suprimindo as 
linhas 5010 a 5030 e 9510 a 9570 (sub- 


gostou e quer desafiá-lo para uma partida (com direito a musiquinha e tudo) 





rotina de impressão da palavra DOMI- 
CRO), criando então a linha 4050 GO- 
SUB 8400: NEXT: IJ= 52. 


“ ” E ) » 
Formado em Ciências Econômicas, Everton Pereira 6 funcionário do Banco do Brasil, agência de 
Patrocínio Paulista, SP. Aprendeu a lingusgem BASIC num NE-ZB000 é atualmente é usuário 


de um CP-300. 


— Domico 


ú POKEÍ GTR6, 4BLPOKEL6MRZ, 4.472 RANDOM 
iO CLEARLODOSDEFINT ISDEFSTR .52DIMSP(34) DIM IE(4) 


20 FORIB=30 TO 312FOR IAz=4 TO 
EXTENEXTIBP (32) mSTRINGS(S,434) 
AD ICISPCIB)=SPCLB)+CHRECIC)I2N 


SIREAD ICISPLTB)=SP(IB)+CHRECIC)EN 
FOR TB=33 TO J4FOR IAmi TO 3aRE 
EXTINEXT 


35 SESCHRS(1SÃ )+CHRS(19ÍI4CHRSCAZL) GF mCHRS(149)+CHR$CID)+CHRS (A 
70) 2802CHR$(157)+CHR$(440)+CHR$(174) SH=CHRS (401) +CHR$(476)+CHRE 


tigá) 


70 FORLIA=3ONDO TO SWOLMIREAD IR2POKE IA, IBENEXT E IB=304 Ns: Kms 


CLSPBOSUB4D LOL ÍTaDNIP=IT 


180 IFIY<ÍS THEN PRINTHSSA,” você que começa, pois tem o duble 4/7 


6 IYERrELSE 
62 ]Y=i 


PRINTA6S2,"BO0U EU QUE COMECO POIS TENHO O DUBLE 64 


,.85 [B=3521CR30t Hat IWe THE IKSOS IE(S )m Gs LEC3) = TE(L)AFOR lAs4 TO 


ROOD:NEXT 


215 ON 1Y GOSUB 4050,20001IFIL)S AND IT=IP YHEN IT=i4s Passa ELSE 
IF Tl>t THEN IPmi4W-iNCIPSTT)CITaL AN INCETm TP) 

220 LF YTmi4 AND IT)IPTHEN PRINTOSAS, STRINGS(23,74") “EU GANHEI”S 
FRING$(23,74"), ELSE IF IP=14 AND IPÍITTHEN PRINTOG4S, STRINGS (2% 
9 RI VOCÊ GANHOU”“STRINGS(22,"4”) ELSE IE IT=í4 AND IPaiT THENPR 
INTO64S,STRINOSC(2R, “W”) MEMPATAMOS“STRINOS (22,70) 

230 PRINTO?79, STRÍNGS(SS,” “Ip RIF ITuia OR IPmiá THEN 600 ELSE G 
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cana rm 


“sir 






OTO 2ig 

400 IL=USRCOMFOR TAsÍ TO SQINEXTIPRINTAZOS, STRINGS (29,32) p 3FOR 

Tâ=1 TO SO2NEXTEPRINTOZRS, “VOCÊ QUER JOGAR NOVAMENTE ?S/N” p Espepo 

I=INKEYESIF SPC29)Ç)75” AND SPCRPICICNT THEN 600 ELSE IF Sp(p9)s 

“8” THEN RUN 

710 PRINTOZB3,”0BRIGADO POR TER JOGADO COMIGO. + “5 3G0T0740 

1030 POKESUDO?, Oz IYaZ:PRINTAGAS, STRINGS (SS, 4 “)p0773, STRINGS (54 

+ “10659, “AGUARDE. . . ESTOU PENSANDO” E Il=Tl+icFOR IV=íis TO 2 

BrIF SPCIV)C)7%” THEN GOTO 3200 

1200 NEXT2RETURN 

2000 POKE 30007, 1004 LY=1 PRINTO64S, “SUA VEZ; DIGITE A LETRA CORR 

ELATA A PEDRA A SER JOGA-“,a774,"DA,. SE VOCÊ NAO “FIVER P/ JOGAR, 

DIGITE APENAS ENTER”; . 

2020 SP(29)=INKEYRITF SP(29)m”* THEN GOZO ELSE IUSASC(SP(29))-44 
SIL=IL+SZI]F 1U>44 OR IVCA THEN RETURN 

3200 SPC2P)m CEC TE(EMVAL (MIDSCSPCIV),4,1))2 ECA) VAL CMIDSCSP CTV 
d,2,1)) 3 

3300 IFSPLIV)=w* OR CIECÍICILE(R) AND JEC3)CDIE(4) AND TECL)<II 

E(4) AND IE(2)<>1E(3)) THEN IF IY=2 THEN 1200 ELSE IF IY=i THENR 

ETURN 

3400 JF IY=2THEN IT=IT+HLIPRINTORSB+L TRA,” “p ELSE JP=IP+isPRINT 

DASDHARTV, O Cr DSIIHANIV, O; 

3700 IF IECi)CIE(a) ANDLIECRIUIECL) OR IE(I)=IE(4)) THEN GPCIV) 

ENIDSCSPCIV),2, 1)+MIDSCSP (TV), 4,1) RTE(ZIZVALCMIDSCSPCIV),4,1) DT 

EC4)=VALCMIDSCSP(IV),2,4)) 

3750 IF IY=í ANDIECS)=TE(4) AND LEC9)=TEÇO) AND IE(4)CIE(3) THE“ 

N PRINTOZ74, BTRINGE(30, 32)  1FOR IJ=zi TO SDINEXTIPRINTO?74, “QUAL. 

LADO VOCE QUER JOGAR? E/D"STRINGS (Ra4,” “)PSPCSPImINKEYSITE SPC 

P)<“D” OR SP(29)57E” THENFOR IJ=ã TO SONEXT3 IL J=LISR(D) GOTO 3750 

3800 IF-IE(S)=IE(4) AND SP(29)2rE”THEN GOBUB BAOORIECÍ)mIECD) EL. 

BE GOSUB BODOLLE(IRTE(4) O 

3900 SP(IV)=" 4” RETURN 

4D1O IPmíS2ITaícFOR IAu4 TO 28 

4020 ICoRND(2) 

4030 IFIC=i AND IT(4S5 THEN READ SPCIT)EIT=ITAS ELSE IF IP<29 THE 

N READ SP(IP)ZIPaiP+s ELSE GOTO 4020 

4040 IF SPRC(IT-i)="66" THEN Iy=mlT-í ELSE IF SPCIP-1)="46" THEN IY 

nJPm=í 

9010 GOSUB SAUOINEXTE LA=9274 1B=LAs IH=0EPOKEI0007, 30 

020 FOR IC=í TO A42FOR In) TO 6+3%(IH=3)4READ IMSIF IM<)92 THEN 

PRINTOIA+IN, CHRECIM) p E TImURRAO) | 
5030 NEXTETAMIA+64ENEXTETH=IH+S IB=EB+5+3%(TH=4) TAmIBa IF IH<Z2 7 

HEN SO20 ELSE IJesp 

7017 FORIAZO TO SEGOSUA PIDO PRINTOP46,”?“NEXTIGOSUB PI00ºPRINTA 
?88,“MINHAS PEDRAS” 2GOSUB PI00PRINTAPHA,”” GOSUB P30DIPRINTASOS 
73STRING$(55, 440) EGOSUB ?3002PRINTOPB9, “SUAS PEDRAB”2FOR IA=i TO 

22º GOSUB P3002PRINTOP66,” "2 NEXTEGOSUB PI00BPRINTIPGS, STRINGS CSS,” 
“- do À 

7040 FOR IAmi TO SºGOSUB PI001PRINTOPG6, “1 NEXTIPOKE30007, SOLFOR 
tA=4 TO 56 STEP AMIJRUSR (O) IPRINTORSB+IA, “4” DASO+TA, CHRE(G4+IA 
LAN POSLB+IA,MIDECSPCIA/0),1,4)7/"MIDSCSR(TA/4),2,4)) ENEXTIRETURN 

8000 ILmDrIF TE=-40 THEN 1IC=D: Oz] ELSE IF 1C=70 THEN IC=6D! Tony 
da 

8100 IC=IC+IHETE ICe-s0 OR LE=70 THEN IH=IHe(=4) 

B200 IK=1C2:1Z=b: EM TOSGOTOB7D0 , 

SADO IL=0RIF IB=-40 THEN IB=0: IQea3o ELSE IF 3B=20 THEN IB=60:16 

-=Q 

8400 IBmIB-IWEIF LB=-10 OR LBm70) THEN EM Iymt=4) 

G600 1K=IB1IZ=02IM=IQ 

8700 IF IK)55 THEN 1Zm(IkK-60)/5 ELSE IZVABSCIK/5) 

5750 IFIkK>=5 AND IK<40 THEN BROD ELSE IF IM(827 THEN [0=2+32081Z 

-588(1K)50) 200708900 ELSE 1G=642-32041Z-58%(1K)50)2G0TO B$00 

Bso0 IJCUSR(D) PRINTOIK+IM, SP (30); DIk+IM+64, SP(31) DIKA+IM+126, SP 

GRE O POTRO MAOS Re CTM=AIR), MID CSP (TO), 1,4) DIK+IMAG7 42H IMBBGD), 

MIDSECSP(IV),2,4) RETURN . 

B900 1 J=USR (O) PRINTOIG, SP (33) DIG+64,GP(3A)  MLG+LZD, SP (35) DIG+ 

Toei SP (34) DIB+256, SP (Já) WIG+IPI+IZOA CTKDSS),MIDSCSPCIV),4 4) pl 

10+65-1268CIK)55),MIDSCSECIV),2,4)p RETURN 

P30D FOKE 30007, XJ8dJ=T)-301Z2USR (0) RETURN 

7480 DATA 156,440,156,140,172,149,92,169,32,470,481,491,471,449, 

32,170,157,140,474,181,176,186 

9490 DATA S1i,0, 214,2, 211,254,6,90,16,254,43,120,181,32,239,204 

P5D0 DATA”DD” Rd E Ta ' ram PRiaS ic id AMAM ' Caro bi É 6” “DL”, 02 “03” “DA”, 

“om”, Eéé 9 T- Ned LA Foro RA Te Tia Red E LARS E ted E "ss Rad Lá RA R tr eando +26" “4” “385” 

[36 MAS | o Bat rms ad : 

P5L0 DATA 191,159,143,143,143,189,144,191,449,128,420,428,494,14 

D1191,149,128,128,120,191,449,194,109,108,108,100,159,429 

9420 DATALBA,189,143,143,143,487,144,191,149,12 


















TECNOLOGIA 
EFICIÊNCIA 
SERIEDADE 


a serviço de sua 
empresa 





















“FILIADA À ASSESPRO."” 












POSSUIMOS PROGRAMAS 
DE ALTO DESEMPENHO 
PARA 
MICROCOMPUTADORES. 












ÁREA ADMINISTRATIVA 


- Contabilidade 

« Ativo Imobilizado 

- Relatório Gerencial 
- Mala Direta 

- Contas a Receber 

- Contas a Pagar 

- Controle Bancário 

- Controle de Estoques 
- Folha de Pagamento 
- Faturamento 

- Editor de Texto 


ÁREA EDUCATIVA 
- learning English 



























páPi 149 128,120,128,191,1449,491,149,128,128,128,/494,449 
7540 DATALSV, 191,159,129,1R0,191,149,120,128,191,149,128,484,494 
(ÃBP, 144 , nf 

9550 DATA 104,109,143,143,143,449,132,194,149,126,128,128,128,12 
8. 191,149,128,128,128,128,120,139,489 180,488/468.100/440 
9560 DATA 184, 159,143,143,143,189,144,191,181,176,176,476,491,13 
3.191 ,184,181,194,151,129,120,194,449,108,138,175,476/176 
2570 DATA Ba, 159,143,143,143,189,144,191,449,128,428,128,491,1408 
2u404,149,128,188,128,191,449,139,109,400,100.188,159 129 E) 





Avenida do Contorno 6656 
Li 19 Belo Horizonte 30000 
(MG) Tel: (031) 223 4133 


Estamos credenciando revendedores 
e representantes em todo Brasil, 




















MICRO SISTEMAS, maio/84. 














EDITORA CAMPUS 





1 OMAX, d. D., Documentação 
de Software, Editora Campus. 





BB Este livro se destina a qualquer 
feitor interessado na fabricação 
idesenvolvimento, fornecimento & 
manutenção) ou no uso de produ- 
tos de software. Os primeiros, ele 
auxilia na complexa tarefa de ela- 


borar instruções que possibilitem 
uma utilização ampla e eficaz de 
seus produtos, aos usuários, ele 
mostra a importância dessa docu- 
mentação como parte essencial do 
software, apohtando-lhes os as 
pectos que deverão levar em con- 


+a durante a seleção do software, 


ou que precisarão discutir com 
seu futuro fornecedor. 
Os três capítulos iniciais anali- 


sam separadamente cada um dos 


tipos de manuais e o último deles 
ensina a elaborar textos que pro- 
piciem uma comunicação simples 
e objetiva entre clientes e fabri- 
cantes, 


ALVES, A., Programação, Editora 
patias. 





BB Este livro é pioneiro no trata- 
menta da técnica de programação. 
Não é um texto sobre linguagem 
de programação ou análise de sis- 
temas e sim sobre os problemas 
operacionais vinculados à codifi- 
cação, aos testes, à depuração de 
erros e à documentação. 

O autor dividiu o livro em cin- 
co capítulos. O primeiro trata dos 
Projetos, onde se ensina a elabora- 
ção de fluxogramas dentro das 
normas da ANS1/70. O segundo 


ALOISIO. PINTO ALVES 


Programação 


“e EOBIACAÇÃO 
TESTES 
- DEPIRAÇÃO 
DE ERROS 
« DOCUMENTAÇÃO 


capítulo é dedicado à Codifica- 
ção, contendo tópicos relaciona- 
dos com a clareza de um progra- 
ma, e no terceiro vêm os Testes, 
apresentando sugestões para loca- 
lização de erros. No capítulo 4 é 
apresentada a Depuração de Erros 
e no capítulo 5 a Documentação, 
com informações sobre a finalida- 
de e leitura do programa. 


CARLOS ALBERTO C. ABREU 


em 







My 77 programas 
Vas pera linha 
z apple 
SEJA PILOTO OU MECANICO 


DE AVIÕES 
OU HELICÓPTEROS 


ABREU, €. A., 77 Programas para 
Jinha Appie, Edição Micro-Kit. 


e 227-7417 
e 267-9261 















BB Este livro serve como texto 
didático para aqueles que estão co- 
meçando a programar em BASIC 
e também como material de apoio 
para os estudantes de 19 e 29 
graus. Com ele, além de passar ho- 
ras divertindo-se com seu comp 
tador, você poderá observar, com 
o auxílio dos comentários, como 
são construídos os programas € à 
sua lógica. 

Além de jogos, o livro traz vá- 
rios programas educacionais como: 
Decomposição de fatores primos; 
Como calcular a área de um polf- 
gono; Método de Simpson; Ope- 
rações de vetores; Divisão de dois 
números; Plotagem de curva € 
outros, os quais lhe darão a opor- 
tunidade de estudar Matemática 
através do computador. 


RIO DE JANEIRO 
R 


etapas do planejamento estratégi- 
co e tático, 

O quinto capítulo ressalta as 
providências a serem tomadas na 
parte organizacional e na técnica 
e, finalmente, o sexto trata do 
controle do planejamento. 


BYTE: MEGA AM HILL 


SeU próprio 
ERES 


STEVE compu 


CIARÇIA 


vsando O 


MP. 





CIARCIA, S, Construa O seu 
próprio computador usando O 
MP-ZB0, Editora McGraw-Hill. 





BB Este guia prático mostra como 
construir um computador baseado 
no famoso microprocessador £i- 
log Z80. A descrição enfoca um 
microcomputador básico em placa 
única contendo 2K de sistema ope- 
racional, portas serial e paralela, 
display hexadecimal e armazena- 
gem de massa em fita cassete. Ca- 


“da subsistema do computador é 


RCC GRUTA Sr per E à 


completamente explicado é calca- 
do em informações provadas e 
testadas de forma a que O leitor 
possa facilmente modificar o siste- 
ma (adicionando, por exemplo, 
um terminal de vídeo) a fim de sa- 
tisfazer suas necessidades pessoais. 


BORGES, J. A., BASIC — 
Aplicações Comerciais, Editora 
LTC. 






BA abordagem geral do livro se 
baseia em exemplos voltados para 
aplicações do tipo gerencial. Par- 
tindo de programas completos, 
que são minuciosamente analisa- 
dos, o leitor é guiado ao entendi- 
mento do computador € da ativi- 
dade de programação. Todos Os 
detalhes da linguagem BASIC são 
explorados, inclusive Os aspectos 
que não são padronizados nas di- 
versas versões para diferentes 
computadores. Especialmente, O 
capítulo sobre arquivos fomece a 
base para desenvolvimento das 
aplicações de uso na administra- 
ção em geral. Embora ênfase seja 
dada no BASIC para micros, este 
texto poderá ser utilizado por 
programadores que utilizem O 
BASIC em computadores de maior 
porte. 
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48,2 





pote esmas dnimarmeto de ce ES 


pes mes opção Esgrima 








Db AaD 












Comprar o GP vUD 
ha Glappy não é só 
omprar umGPoDo 


Você pode até achar que o preço e as condições que 
a Clappy oferece são as melhores do mercado. 
“Oqueéverdade, fácil devocê comprovar. Mas o que 

aClappy deseja é fazer muito mais por você. 

Daí, ao comprar seu micro na Clappy, vejao que 

ela lhe oferece: 

e Departamento de Consultoria e Apoio ao 
Comprador 

6 Curso de Programação e Operação 

O Treinamento 

º implantação, fornecimento e instalação de 
sistemas de 

e Grande variedade em Softwares, periféricos 
e suprimentos. 


SER PROLOGICA 
É RB microcomputadores 


ER: 











Clappy 


Venha à nossa loja ou solicite 
a visita de um representante. 












CP500, nas versões cassete, 1 ou 2 discos. 
Placa CP/M. Sistema 700 com super file e 
impressora de 200cps, disco Winchester de 
5 Mb. Sistema 600, PROCALC (o visicalc do 
CP 500), Banco de Dados básico e avançado, 
processador de textos básico e super, 
compiladores BASIC, COBOL, FORTRAN e 
PASCAL, Além de uma infinidade de jogos. 






APLICATIVOS COMERCIAIS: 


Contabilidade, Controle de estoque, Folha 
de pagamento, Contas a pagar e receber. 


APLICATIVOS DE APOIO À DECISÃO: 


Planilha financeira, Processamento de 
textos, Mala Direta, Cadastro de clientes, 
Controle financeiro. 

À Clappy desenvolve soluções específicas 
para qualquer problema que você tenha. 


ACLAPPY TEMA MELHOR 
SOLUÇÃO PARA SEUS PROBLEMAS. 


s» CENTRO: 
Av. Rio Branco, 12-Loja esobreloja 
Tel: (021)253-3395 
Rua Sete de Setembro, 88- Loja O (Galeria) 
Tel.: (021)222-5517- 2272-5791 


COPACABANA: 
Rua ope Loureiro, 99 
Tel.: (021) 236-7175- 257-4398 
rta diariamente das 10 às 20 horas e aos sábados das 1045 15 


horas. Estacionamento próprio, 


Entregamos em todo Brasil pelo reembolso Varig. 





Linha Apple 
Disco voador sonoro 


Lendo o útil e interessante artigo Rotinas de som e 
animação gráfica, de Rudolf Homer Junior, na Seção 
Sidra de M$ nº 27, chamou-me a atenção o som do disco 
voador. Resolvi fazer uma pequena alteração no programa 
(espero não ferir os sentimentos do autor do artigo) e jun- 
tar a imagem ao som. 

Depois de rodar o programa, é interessante afastar-se 
cerca de quatro metros da TV, pois o efeito fica ainda 
nais atraente e sugestivo. 


10) REM DISCO VOADOR * BY CARIBA * DEZ 1983 
20 HOME 

30 DATA 140,1,162,0,138,24,233,1,208,252,1 
41,48,192,232,224,255,208,242,236,R08,237, 
EJA 

AO FOR A=768 TO 789 : READ B : POKE A,B : | CA a 
NEXT a És | 
s0 GR E COLOR = RNDCLó)XIA 
60 HLIN 17,24 AT 47 

70 HLIN 15,23 AT 18 

80 HLIN 12,26 AT 49 


Se você tem pequenas rotinas e programas utilitários, 
realmente úteis tomando poeira em seus disquetes ou 
fitas cassetes; antecipe-se aos piratas e trate de 


90 

100 
tio 
“480 
4.30 
1340 
1350 
160 
1.70) 
180 
190 
e 00) 
est) 


HLIN 9,29 AT 20 

HLIN 7,931 AT 21 

HLIN 9,29 AT 28 

HLIN 13,25 AT 23 

HLIN 15,16 AT 24 

HLIN 22,23 AT 24 

FOR Azí TO 255 STEP 3 

POKE 774,105 3 POKE 769,4 3 
POKE -16204,A 
CALL 768 

POKE -16303,0 
FOR B=í TO 30 : 
GOTO SO 


POKE 783,4 


NEXT B,A 


Carlos Ribeiro de Barros-SP 
Linha TRS-80 
Bye bye INKEY$ 


Sabendo os endereços e valores de cada tecla, fica 
muito fácil eliminar o INKEY$ e permitir maior ve- 
locidade nos programas. 

Observe que neste programa aparecem no vídeo os 
valores relacionados a cada tecla, e se apertarmos vá- 
rias teclas simultaneamente, o resultado que surgirá 
na tela será a soma dos valores de cada tecla. Assim, 
para substituir o INKEY$, basta usar IF PEEK (en- 
dereço) = (valor da tecla) THEN.... 


CLS : FOR K=0TO7 : X(K) = 
6+24K : PRINTO!28*K,X(K) : 
7 

FOR K = O TO 7 : PRINTQI28*K+8 
(PEBK(X(K)), : NEXT : GOTO 2 
REM ENDERECOS E VALORES DO TEC 
LADO 

REM ALVARO DE FILIPPO 
823-1948 IPATINGA MG 


1433 
NEX 


(031) 


Álvaro de Fitippo-MG 


“= Presidente Wilson, 165/grupo 1210, Centro, Rio de 


divulgá-los. Envie-os para a REDAÇÃO DE 


MICRO SISTEMAS — SEÇÃO DICAS: Av. 


“Janeiro; RJ, CEP 20030. Não se esqueça de dizer 


para qual equipamento foram desenvolvidos. Desta 


forma, su 


na, sua descoberta poderá ser útil para muitos 
e muitos, em vez de desmagnetizar-se com o tempo 


em suas fitase disquetes... 


Linha TRS-80 


Duplicador de linhas 


Este utilitário gera uma 
linha idêntica a outra já 
existente no prógrama, pois 
não existe esta função no 
BASIC dos micros compati- 
veis com a linha TR$-80. 
Para operálo, basta seguir à 
sequência: 

— digite o número da nova 
linha; 

— utilize a tecla de tabula- 
ção ( > ) para mover O 
cursor, reservando um espa- 
ço idêntico ou superior ao 


65000 INPUT"DE";L1 
48 

65001 

32767)*65536 : 


INPUT"PARA";L2 : 


da linha que será duplicada; 
— digite o símbolo de co- 
mentário (”) e, como lem- 
brete, o número da linha 
que será duplicada; 

— tecle RUN 65000 ou 
GOTO 65000 e responda às 
perguntas “DE” e “PARA” 
com os respectivos números 
das linhas; 

— tecle  < ENTER> e 
observe que você obteve 
uma cópia fiel de uma linha 
já existente. 


L3=165 


L3=PEEK(L3+1)*256+PEEK(L3) : L3=L3+(L3 
IE L3=0 THEN 65000 ELS 


E E=PEEK(L3+3)*256+PEBK(L3+2) : IF E<> 
Li AND E<>L2 THEN 65001 

IF E=L1] THEN El=L3+4 ELSE E2=L3+4 

IF E1=0 OR E2=0 THEN 65001 


POKE(E2), PEEK(E1) 


- El=EI+1 : EZ=EZ+I 


: IF PEEK(E1)>0 AND PEEK(E2)>0 THEN 65 


004 ELSE PRINT"OK" 


: EDIT. 


' DUPLICADOR DE LINHAS * ALVARO DE FIL 
TPPO * (031) 823-1948 


Álvaro de Filippo-MG 





























Formatando quantias monetárias 





Esta dica transforma qualquer va- = 
lor numérico (exceto em notação o 
a ; E as ENDAS = 1.000.856 
científica, tipo 1.234 E+3) positivo 30 pi ; 
ou negativo para o formato : 
XXX.XXX,XX, que é muito utiliza- 119 DUCRO = VENDAS 40.8 





























E 110 vx VENDAS : GOSUB 40000 : 
do para representar quantias mone- VENDASS = 2$ 
tárias 120 vx = LUCRO : GOSUB 40000 : 
E LUCROS = z$ 
G programa deve ser usado como É 
sub-rotina num programa principal, e 40000 2$ = “Mo... 


para melhor compreensão vamos ana- 
lisá-lo a partir da figura 1: vamos su- 
por a variável VENDAS = 1.000.856 
e LUCRO = VENDAS* 0.8, ou seja, 
LUCRO = 800.6848. Para formatar 
Os valores de VENDAS.e LUCROS, É importante evitar que as variá- 
usaremos as linhas 110e 120 da figu- veis utilizadas na sub-rotina não se- 
ra 1, colocando numa variável VX o jam usadas no programa principal, 
valor da variável a ser formatada. pois poderá gerar perda de valores e 
Ativamos a sub-rotina formatadora criar confusão em outros resultados. 
(GOSUB 4000), que nos devolve o Para evitar a repetição, fixe as variá- 
valor formatado na variável Z$ e veis usadas: V$, VOS, Z$, VX, 
salvamos o valor desta variável numa FLAG, CNT, MOD, L. Por fim, é 
Outra variável alfanumérica qualquer interessante destacar que esta dica 
(no caso da figura 1, LUCROS e actita até o valor máximo de 
VENDAS$). 999.999.999,00. 


Sub-rotina formatadora 


40010 


40190 RETURN 








Figura 1 







40000 25 = “m;yg = sTRS (Vx) :CNT 3) = 0) THEN Z$ = MmIDS (VS, 
E =0 X3) + ",n 4 as 
E 40010 1F SGN ( VAL (v$)) = 3 40110 NEXT X 
E THEN FLAG = 1 40120 L = LEN ( STR$ ( INT ( VAL 
E 40020 V$ = srrR$ ( ABS (C VAL (V$) (v$)))) 
E ) 40130 MOD = INT (L/ 3) 
se 40030 FOR I = 1 To LEN (V$) 40140 IF (L/3)- INTIL/3) 
Ee 40040 TP MIDS (VS$1,1) = ",0 Prey O THEN GOTO 40160 
is GOTO 40070 40150 2$ = LEPPS (VS,L = 3» 
e 40050 NEXP IF a ho tm dica 
na 40060 VOS = ",00": GOTO 40080 40160 IF FLAG = | THEN ZS <= teu 
EO 40070 VOS = "," + mIDs (V$,I +19 LEPT$ (2%, LEN (Z5) - 1) + 
Fi 12) VOS: GOTO 40180 
Ja pano FOR X=1I-17To)srep- 40170 ZS = LEPP$ (ZS, LEN (75) - 
e 1 + vos 
Ê 40090 CNT = CNT + 1 40180 FLAG = 0 


40100 IF (CNT / 3 - INT (cnr / 40190 RETURN . 








Otimização de caracteres duplos 


estiver escrito na tela estará com um espaço em branco 
entre cada dois caracteres (pois cada caráter duplo ocupa 
o lugar de dois caracteres normais). Para verificar, rode 













Roberto Quito de Sant'Anna-RJ 










IL ET: 





























Lerando 
qualquer linha 


A dica “Zerando REM”, 
publicada na Seção Dicas de MS 
nº 27, zera apenas as linhas de 
comentário dos programas em 
BASIC. Com pequenas 
alterações, entretanto, podemos o 
fazé-la zerar qualquer linha de A 
programa, Para tal, digite a dica E 
“Zerando REM” e faça as 
seguintes alterações: 


e CU 


9870 INPUT X 
9960 IF PEEK (L+5)< > X 
THEN RETURN 


E 


A linha 9870 recebe o código 
da instrução cujas linhas serão 
zeradas. Se, por exemplo, 

X= 245, então todas as linhas 
PRINT receberão o número O 

e não poderão ser mais deletadas. 
Com relação às outras 
instruções (IF, LET, INPUT 
etc.), consulte o manual do seu 
equipamento, 




















































CE ie e a im 


Rodrigo Loureiro Pinto-RJ 




















Se você quiser retornar da condição de caracteres de este exemplo e depois adapte esta dica às suas | 
q tamanho duplo (32 cpl) sem ter que usar CLS e com isso necessidades: 
q apagar toda a tela, digite em BASIC: 
1 CLS 
E PORE 16912,40 : OUT 236,0 « ENTER > (Mod III) 10 PRINT CHR$(23) 
a POKE 16445 : OUP 255, q m : 20 PRINTEBO + "CARACTERES DUPLOS" 
q pa GORE ENTER co AModet) 30 FOR 1=1 TO 100 ; NEXT 
A Unica coisa diferente que acontecerá (mas que 40 POKE 16912,40 : OUT 236,0 : REM - Mod III 
permite inventar efeitos especiais na tela) é que, ao 50 FOR 1=1 TO 100 : NEXT 
retornar aos caracteres de tamanho normal, tudo que 60 GOTO 10 















Com este programa, os micros da linha Sinclair facilitam a preparação. 
de escrituras de compra e venda de propriedades rurais 





De azimute em rumo 


desenvolvimento de microcom- 
putadores nacionais abre novas 
perspectivas de maior automa- 
tização da topografia no Brasil. 
Com relação aos micros da linha Sinclair, 
em decorrência de sua capacidade de 
memória de até 48 Kb de RAM e pos- 
sibilidade de conexão a uma impressora, 
espera-se seja de grande valia na elabo- 
ração de planilhas topográficas. O que 
poderá causar incômodo em alguns mo- 
mentos é a impressão dos somente oi- 


10 
11 
L2 
13 
14 
15 
16 
20 
30 
40 
50 
E] 


DIM 
DIM, 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 


R$(4,3) 
G$(1,7) 
D=PI/PI+PI/PI 
P=180 
C=60 
U=D/D 
Z=10 
R$(U)=" NE” 
R$ (D) =" sE" 
R$(P/C)=" sw” 
R$ (D*D) =" NW” 
LET DECIMAL=250 
60 LET GRAU=310 
70 PRINT "ENTRE COM AZIMUTE EM 
G.MMSS" 
71 PRINT " 
80 INPUT AZ 
90 LET G=A? 
120 GOSUR DECIMAL 
140 IF G>=P*D THEN LET G=G-INT 
(G/P/D) *P*D 
150 LET Q=INT (G*D/P)+U 
160 IF Q>D+D THEN LET Q=U 
170 LET R=((INT (Q/D) -G/P) /cos 
(PI*Q)) *P 
180 LET G=R 
210 GOSUB GRAU - 
211 LET G$(U)="" 
220 LET G$(U,D)=STR$ G 
221 IF G>=Z THEN LET G$(U,U TO 
D)=STR$ G 
222 LET G$(U,D+U)="." 
223 LET G$(U,2Z/D)=STR$ M 


RUMOS: ": 


50 


Laci Mota Alves 





to dígitos significativos que, às vezes, 
são insuficientes para apresentar adequa- 
damente certos resultados. 

A calculadora programável HP-97, 
por sua vez, mostra-se eficiente na re- 
solução de problemas de topografia. 
Tem a vantagem de imprimir até dez dí- 
gitos significativos, tem ótimos recursos 
de programação, mas apresenta só 26 re- 
gistradores para o armazenamento de 
números e impressão em papel térmico. 
Entretanto, é bastante propícia à pre- 


224 IF M>=% THEN LET G$(U,D*D T 
O Z/D) =STR$ M 

225 LET G$(U,Z/D+D) =STR$ S 

226 IF S>=Z THEN LET G$(U,C/Z T 
O Z/D+D) =STR$ 5 

227 FOR IsD TO Z/D+D 

228 IF G$(U,I)=" “ THEN LET G$( 
U,I)="0" 

229 NEXT.I 

230 PRINT TAB 11;G$(U)+R$(Q) 
231 GoTo 80 

240 REM *HEXRLKRRARAMR ARA de 
250 REM *DECIMAL* 

260 LET M=INT (G*Z*Z)/2/2 

270 LET M=(M-INT M)/C*Z*2 

280 LET S=(G*Z*2-INT (G*Z*Z))/P 
/D*Z 
290 
300 
310 
320 
330 
340 
345 
«350 
351 
352 
353 
360 
370 
380 
390 


LET G=INT G+M+S 
RETURN 

REM *GRAU* 

LET MI=(G-INT G) *C 
LET M=INT MI 

LET S=INT ((MI-M) *C+U/D) 
LET G=INT G 

IF S=C THEN GOTO 370 
IF M<C THEN GOTO P*D 
LET M=U-U 

LET G=G+U 

RETURN 

LET S=U-U 

LET M=M+EU 

coro 351 





it 


paração de dados a serem arquivados € 
processados pelo micro. Este, proporcio- 
nando o uso de caracteres alfanuméri- 
cos, imprime resultados mais bem elabo- 
rados, contribuindo para diminuir enga- 
nos e omissões a que estamos sujeitos. 

Como exemplo, elaborouse um pro- 
grama de computação em BASIC em 
um TK82€ que transforma azimutes 
em rumos, Facilita sobremaneira a pre- 
paração de memoriais descritivos que 
constam de escrituras de compra e ven- 
da de propriedades rurais. Um memorial 
descritivo é feito de modo a fornecer a 
direção, o sentido e a distância de cada 
alinhamento que compõe a poligonal fe- 
chada que delimita a propriedade, as- 
sim como suas confrontações. 

A direção e o sentido de cada alinha- 
mento são dados, geralmente, pelo rumo 
magnético, que pode ser NORDESTE 
(NE), SUDESTE (SE), SUDOESTE 
(SW) ou NOROESTE (NW). Este pro- 
grama poderá servir como sub-rotina pa- 
ra outro de natureza mais complexa e 
abrangente. Aceita azimutes no sistema 
sexagesimal e fomeçe resultados sob a 
forma G.MMSS Q, em que: G = grau, 


MM = minutos, SS = segundos, Q = qua-. | 


drante (NE, SE, SW ou NW). Os azimu- 
tes maiores ou iguais a zero deverão ser 
digitados como G.MMSS, ex: 354.4532, 
que corresponde a 354945'32”. E 


Laci Mota Alves é engenheiro floresta! forma- 
do em 1973 pela Universidade Federal de Vi- 
çosa — MG. É pósgraduado em Ciência Flo- 
resta! e leciona atualmente Topografia e Foto- 
grametria na Escola Superior de Agronomia 
de Paraguaçu Paulista — ESAPP. Além disso, 
presta serviços autônomos de Topografia, 
Conservação do Solo e outros de Engenharia 
Florestal desde 1975, 
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MICRO SISTEMAS, SEI — Sistemas Eletrônicos de Informações, divisão 
da Abril Cultural, e Telesp têm o prazer de apresentar... 







O serviço Videotexto para usuários de microcomputadores. 















Com o Telesoftware você tem à sua disposição, 24 horas por dia, 
em sua casa, uma ampla biblioteca de programas de uso pessoal, jogos e 
lazer, educativos, administrativos, financeiros, técnicos / científicos 
e utilitários publicados em MICRO SISTEMAS. São programas — a princípio 
compatíveis com a linha TRS-80 — selecionados e testados pela Revista, 
que você poderá carregar diretamente no seu micro, sem ter que digitá-los. 
Para utilizar esse serviço, tudo o que você precisa é: 
* Ter um'micro CP-500 ou CP-300 
* Ser assinante do Videotexto. 
* Adquirir um kit composto de interface R$232-C, 
modem e software de com unicação 


somente 20 rá 
um exemplar 
Envie nom, 
seu anúncio 
diata). 
























descompli 

AM A lei md M , 
Se você têm um desses micros, não perca tempo. Entre em contato (os Sn itu 
com a Telesp (Videotexto — Gerência de Usuários, tel.: 544-2535) e Revistas, Q 







comece a utilizar esse novo e revolucionário meio de comunicação. 








TELESP 


TELECOMUNICAÇÕES 
DE SÃO PAULO S.A. 
EMPRESA DO SISTEMA TELEBRAS 






2200-7377 (. 
disom) 















Publicado na 
Edição nº 












Programa 













E! 
Aprendendo Frações 
Biorritmo 
Catálogo de Disquetes 
Ciclotron, o Jogo das Barreiras 
Compilador Forth 
Copsys 
Mini Editor de Textos 
PIL — Controle da Fertilidade 
Professor J. C. 
Registro Pessoal de Cheques 
Soletrando 
Tutor Matemático 


Heber Jorge da Silva 
Francisco Luiz Farias Bezerra 
Lawrence Falconer King 
Hendy Takeshi Yabiku 
Antônio Costa 

Daniel Augusto Martins 

Ivan Camilo da Cruz 

Armando Oscar Cavanha Filho 
Jôneson Carneiro de Azevedo 
Marcelo Renato Rodrigues 
Heber Jorge da Silva 
Paulo Sergio Gonçalves 
















Escreva pa 
F mento de À 
: São Paulo & 
a sua .etique 
sa. 












À, 


Rio de Jane 
i Wilson, 165 
' RJ, CEP 
2862-5259 e 
São Paulo 
153, Jardim 
01433 - tel 
3881-5668 e 
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Alfa Bit 


À CLUBE DE COMPUTAÇÃO 


Associe-sa o ABCc & ganhe Anúncio GRÁ- 


TIS,.um exemplar de ALFABIT e DESCON. * 


TOS de 10% na compra de LIVROS, REVIS- 

TAS, CURSOS e PROGRAMAS, além de: 

— Serviços de “Reprinters” e Consultas 

= Associação a Clubes Europeus 

— Participação em Cursos, Congressos e 
Concursos 

— Novos Lançamentos a PREÇOS REDUZI- 
DOS (Breve: IMPRESSORA DE AGU- 
LHAS P/MINI-MICROS DE LÓGICA SIN- 
Era - Lançamento “Digital Eletra- 
nica” 

ANUIDADE: Cr$ 1.000 (hum mil cruzeiros) 

Somente ao receber sau Cartão-Descontos 8 

um exemplar dg “Alabit"' 

Envie nome, endareço, profissão e texto do 

be a (caso queira publicação ime- 

ata). 


NOVIDEIA(*) 
Comunicação e Informática Ltda. 
CAIXA POSTAL 9978 
CEP 01051 - São Pauto, SP 


(*)Comercializamos seu proje- 
to-Soft ou Hard. Escreva-nos, 





No Recife, visite 


: descomplicado do pais! 


nicos, Peças e Som. 
PREÇOS ESPECIAIS. 


Reembaiso Postal: 


TELEVÍDEO LTDA. 


Tel.: (081) 224-8932, 
(50000) Recife, PE 





disom) 


PROBLEMAS 
COM SUA 
ASSINATURA? 


Escreva para o nosso Departa- 
mento de Assinaturas do Rio ou 
São Paula e envie, para facilitar, 
a sua etiqueta adesiva de remes- 
sa, 


amu 


Rio de Janeiro — Av, Presidente 
Wilson, 165/grupo 1210, Centro, 
RJ, CEP 20030 - tels.: (021) 
262-5259 e 262-5208; 

São Paulo — R. Oliveira Dias, 
153, Jardim Paulista, SP, CEP 
01433 - tels.: (011) 853-7758, 
881-5668 e 853-3800, 





TELEVÍDEO(') 


10 Lojad de informatica mais 


: |Micros, periféricos, suprimen- 
los, Software, Cursos, Livros e 
: [ Revistas, Componentes Eletro- 


FINANCIAMENTO PRÓPRIO. 
— DDD] 
- | Compre pessoalmente ou pelo 


R. Marquês do Herval, 157 


E 10) Sr. industrial: distribuimos seu 
produto nas melhores condiçoes. 
Contato em São Paulo: Tel.: (071) 
220-7377 (Sr. ANDERSON — Mun- 









Visc. de Pirajá, 547 Sobreloja 211 
Cep. 22.410 Ipanema Rio RJ 
Tel.: (021) 274-1042 
DESPACHAMOS PARA 
TODO O BRASIL 











O lugar compatível 
com você e seu 
micro. 











= Acessórios | 
















Rua Dias da Cruz, 215 






Tel.: 594-2699 








sistéico 
















s/B04 — Rio de Janeiro—RJ 


' 
es MICROLÓGICA 
Engenharia de Sistemas Ltda 
Consultoria de Hardware 
ASSISTÊNCIA TÉCNICA 
A MICROCOMPUTADORES 
Compatíveis com APPLE, 
TRS80, IBM PC, Zx81, jogos 
eletrônicos e outros. 


Temos programas comerciais, 
utilitários, educacionais, 
aplicativos e jogos novíssimos 

para APPLE Il em Diskettes 
a partir de 15 mil 

AV PRESIDENTE VARGAS, 542 
/1912 — 263-9925 

RIO DE JANEIRO (RJ) 


Transformação PAL-M 
Assistência Técnica 
Expansões 


UNITRON 


Assistência Técnica 
Autorizada 
Vendas + Leasing 
Expansões 


MICROEQUIPO 
Manutenção 
na sua empresa 


Av. Marechal Câmara, 271/101 
Rio de Janeiro Tel.: 262-3289 





“MIKROS” 


AGORA NO 
LEBLON! 





Av. Ataulfo de Paiva 566 - Loja Z11 


Rio de Janeiro — Tel.: 239-2798 
APROVEITE OS PREÇOS 
“INCRÍVEIS” DA “MIKROS” 
DO LEBLON, APÓS SUA 
ÉPOCA DE INAUGURAÇÃO. 


MICROCOMPUTADORES 
“NAJA - JR-SYSDATA - UNITRON 


COLOR 64 - APPLE-I1 PLUS 
CP-200 - CP-300 - CP-S06 
FK-83 - TK-85 - RINGO 


SISTEMAS 
SOFIWARE (NAC. E IMPORT) 


IMPRESSORAS E PERIFÉRICOS 
CURSO DE BASIC 


PROFISSIONAIS 
ALTAMENTE ESPECIALIZADOS 
PARA ATENDÊ-LO 











PARA 
PROBLEMAS 
TÉCNICOS 
USE 

A CABEÇA 


e, 
PARA PROBLEMAS COM MATERIAL DE 
DESENHO - PINTURA - ENGENHARIA 


ne: * ESCRITÓRIO - MAQUINAS PY 
ESCRITORIO E SUPRIMENTOS EM GERAL 








O BEL-BAZAR 
ELETRÔNICO 


onde você AINDA encontra 
e qualidade da ANTIGAMENTE) 


AV. ALMIRANTE BARROSO, 81 « Ly “C” 
TEL: 2682-9229 . 262.9088 - 240-8410 . 2721.8282 
RIO DE JANEIRO - CASTELO 


Es 


ROBOTIC 


— MICROCOMPUTADORES 


DE TODAS 
AS MARCAS 


— SUPRIMENTOS 


— PEÇAS E PARTES PARA 
MICROCOMPUTADORES 


| — JOGOS ELETRÔNICOS 


RUA BARATA RIBEIRO, 370 
— Loja 105 APART HOTEL — 
COPACABANA — RIO — RJ 
TEL.: (021) 257-6396 


EUTESHOP 


INFORMATICA DLIEDA 





* Contabitidade Geral 
Editor de Texto 

Sistema de Arquivos 
Mala Direta 

Sistema Estatistico 
Controle Bancario 
Administração imobiliária 
Sistema Bibliotecário 
Escritório de Advocacia 
Utilitários em Gera! 


CO. .o.aau 


Av. Franklin Roosevelt, 23/803 - Castelo 
Tels: 02h: 2245.6829 - 2200-8327 
CEP. 70.021 Rio de Janeiro — RE 








amos iniciar este mês a cons- 
trução do MICRO BUG, e 
nesse primeiro contato discu- 


tiremos algumas preocupa- 
ções e cuidados a serem tomados. Em 
primeiro lugar, é preciso seguir à risca o 
texto e não saltar explicações ou proce- 
dimentos. É de vital importância que o 
leitor entenda o que está fazendo antes 
de se aventurar em modificações. Mesmo 
os leitores que já conhecem e dominam 
o Assembler devem ler com atenção ca- 
da tópico, pois tudo foi planejado para 
ter uma seguência tanto de funções 
quanto de explicações. 

Outro ponto importante é quanto à 
gravação do MICRO BUG, mais precisa- 
mente quanto à fita cassete a ser empre- 
gada para tal. No tópico sobre os co- 
mandos de gravação iremos abordar 
esses problemas mais a fundo, porém no 
momento é suficiente o leitor separar 
uma fita exclusivamente para este traba- 
lho. De preferência, uma fita C-46 de 
marca conhecida (Scotch ou Basf). 


A REPRESENTAÇÃO 
DO ASSEMBLER Z80 


O grande segredo para se dominar a 
linguagem de máquina está na capacida- 
de de compreensão e interpretação dos 
mnemônicos da Z80. De fato, basta en- 
tendermos o que aqueles nomezinhos es- 
tranhos querem dizer para que todo o 
mistério desapareça. 

Vejamos um exemplo: o código 62 
corresponde à instrução LD A, dd. 
Esta instrução serve para carregar O 


rotinas do SGM 


GD 

LD KH, 
LO cHLO,cad 
LO mun, CHI.) 
LD A,CHI.) 
EX DE, HL 
JP amem 
CALL musa 
LO D,ild 
ADD 8,C 
SBC Hi, DE 
ADD Hi, BE 
INC HI. 

DEC DE. 





BOTO xx 
GOSUE ums 
LO Decal 

LET AzAvC 
LET Hiz=HI-DE. 
LET HL=HLA+BC 
LEY Hlziit+s 
LEY DEaDE-S 


LET Bl=zmammx 
LET Hlzzzas 
POKE HL,dd 

POKE xuumx,L. 


e POKE muumeí,bi 


LET A=PEEK tl. 
LET HL=DE é LET DE=HL. 
(IPs tam) 





Figura 1 — Algumas instruções Assembler possuem uma mecânica bastante semelhante a deter- 
minadas instruções do BASIC. Outras porém só são simuladas através de rotinas complexas. 


acumulador com o valor genérico dd. 
Assim, poderíamos dizer que LD A,01 
equivale a LoaD Acumulador com o 
valor 1. Em BASIC usaríamos o coman- 
do LET A = 1. Simples, não? 

Como o acumulador, existem mais 
alguns registradores, porém só nos im- 
portarão os seguintes: H, L, B,C,De E. 
Estes registradores são comumente agru- 
pados na ordem HL, BC e DE, e desta 
forma qualquer um destes pares pode 
representar um valor entre O e 65.535 (2 
bytes). 

Na figura 1 temos algumas instruções 
do Assembler e os seus correspondentes 
aproximados em BASIC. A partir de 
agora usaremos as representações 
dd xXxxX,Zzzz, etc. para indicar valores 
de 1 byte (ddxx,yy,Zz) e valores de 2 
bytes (xxxx,dddd,yyyy,ZzZz2). 


A FUNCIONALIDADE 
DO STACK DA Z80 


Compreender o princípio de funció- 
namento do Stack da Z80 é, sem dúvi- 
da, o passo mais importante dentro' da 
programação em linguagem de máquina. 
Acompanhe pela figura 2 a explicação a 
seguir: quando o sistema se organiza, ele 
determina um endereço para O par de re- 
gistradores SP (Stack Pointer). Neste e 
nos endereços subsegiientes, em ordem 
decrescente, a Z80 irá armazenar e recu- 
perar temporariamente informações. 
Isso será feito pelas instruções PUSH e 
POP e cada informação armazenada ou 
recuperada deverá constar num par de 
registradores (HL, BC, DE ou AF). A 
posição do Stack é sempre atualizada 
em dois bytes e aponta para o primeiro 
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O Comando M 
e as principais 


crer ant 





Tre e 


mto 


202 3 


eg 


Bpoenm mo 


ea 


NOS DEDE RB 


w 


9 
té 
a 


BLOG es 
JLPPB sm 
SILPOYV um 
SP =532000 mu 


SEOCA  xm 


- 


Chá apos PUSH HE. 


H=dd e Lag 





Figura 2 — 


34997 
SP =294998 
34999 
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JÁPPZ um 
SÁAVOE mim 
31P4GP le 
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O Stack fou pilha da máquina, como é também conhecido) é a mais importante 


ferramenta da linguagem de máquina. Seu conhecimento e perfeito entendimento é de extre- 
ma importância para q criação de programas Assembler, 


elemento da pilha e, assim, por exem- 
Plo, se o Stack estiver apontando para 0 


endereço 32000, após um PUSH HL, o 


endereço 31999 conterá o valor do re- 


* gistrador H, o endereço 31998 conterá 


o valor de L e o Stack estará apontando 
para o endereço 31998, 

Para recuperar estes valores basta 
fazer POP DE (por exemplo) que o re- 
gistrador E assumirá o conteúdo do 
endereço 31998, o registrador D assu- 
mirá o conteúdo do endereço 31999 e o 
Stack estará novamente apontando para 
o endereço 32000. Note que POP não 
altera o conteúdo dos endereços, mas 
apenas modifica o valor do SP. 


O Stack, no entanto, não é ocupado 
apenas dessa forma. Há uma outra for- 


ma de utilização que costuma causar . 


uma infinidade de dores de cabeça aos 
programadores: através das sub-rotinas... 


Imaginemos o nosso Stack no ende- 
reço 32000. Após uma instrução do tipo 
CALL xxxx, o Stack apontará para o 
endereço 31998 e os endereços 31999 e 
31998 conterão o endereço de retorno 
da dita sub-rotina, ou seja, o endereço 
da primeira instrução após CALL xxxx. 
Quando houver uma instrução RET, o 
Stack apontará para o endereço 32000 
e a execução do programa será desviada 
para o endereço armazenado em 31998 
e 31999. Isso implica em que toda sub- 
rotina deve terminar por um RET, caso 
contrário O programa poderá ser desvia-. 
do para um endereço desconhecido. 


Obviamente, programar em lingua- 
gem de máquina não é só isso, e nesse 
momento seria prudente dar uma recapi- 


organização inicial 


tulada no curso de Assembler da própria 
MICRO SISTEMAS. 


OS PREPARATIVOS . 
INICIAIS E A DIGITAÇÃO 


A nossa primeira ação será reservar 
espaço no topo da RAM para que lá seja 
posicionado o SGM (Sistema Gerencia- 
dor de Módulos). Para o SGM iremos 
reservar 2 Kbytes, sendo que isso será 
feito pela alteração do valor da variável 
RAMTOP. 

Faça POKE 16389, 120 e em seguida 
NEW. O comando NEW é fundamental, 
pois é ele quem organiza o Stack da Z80 
(se for omitido, o Stack permanecerá 
ainda no topo da RAM). Quando, por 
um motivo ou outro, for dado um 
POKE dentro do Stack, o sistema perde- 
rá toda a referência de retorno e o micro 
muito provavelmente sairá do ar. Acom- 
panhe pela figura 3 a mecânica da reser- 
va de espaço (lembre-se sempre que toda 
vez em que houver necessidade de reser- 
var espaço no topo da RAM o procedi- 
mento deverá ser o que acabamos de 
ilustrar, ou seja, POKE e NEW). 

Passemos então à listagem 1. Ela ser- 
virá para a introdução da primeira parte 
do SGM, com a impressão dos endereços 
em hexadecimal, pois este será o padrão 
adotado daqui para frente. Após a digi- 
tação da listagem 1, digite RUN e res- 
ponda à pergunta ENDEREÇO? com o 
primeiro endereço da listagem ou bloco 
que for digitar. Os endereços subsegiien- 
tes não precisam ser digitados. 

Digitando M, o sistema retorna à per- 
gunta ENDEREÇO?, e digitando Z o 


SP RAMTOP=32768 


memória RAM | 


após POKE 16389,120 


memoria RAM 


apos NEW 


memória RAM 





Figura 3 — Todo micro 





RAMTOP=30720 SP 


área a ser reservada 


RAMTOP=30720 


(sistema operacional, BASIC, rotinas em Assembler etc) ocupa o Stack 


o tempo todo. A sua manipulação deve ser cercada de cuidados, pois qualquer deslize ocasiona 


a perda total de controle sobre o sistema. Este 
leitores de MICRO SISTEMAS quando tentara 
antes alterar o valor do Stack Pointer (SP) através do comando NEW. 
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» aliás, foi o grande problema encontrado pelos 
m digitar o Monitor BASIC (MS número 25) sem 


>» 
[Cr 

















Era 
só O que 
faltava... 


Agora, com as interfaces 
TL 85 e TL 300, você já pode 

ligar o seu micro TK 85, TK 83 
e CP 300 em uma impressora. 













Interface que complementa 
seu TK 85 ou TK 83, ampliando largamente 
a aplicação do mesmo. 

* aciona qualquer impressora ou máquina 
de escrever eletrônica, com comunica- 
ção paralela Centronies; 

* aceita todos os comandos relacionados 
com impressora (Copy, Llist, Lprint); 

* gera maiúsculas, minúsculas, acentos 
e controles do ASCII, diretamente do te- 
clado; 

* permite a conexão de outras expansões. 



















Versão com Editor: Facflimo de usar: orien- 
tado para língua portuguesa; gravado em 
EPROM,; marginação automática: separa- 
ção silábica e outros recursos. 
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Acionada pelos comandos de impres- 
são, a interface TL 300 possibitita a ligação 
do CP 300 a qualquer impressora ou má- 
quina de escrever eletrônica, com comuni- 
cação paralela Centronics. Permite, ainda, 
a expansão do sistema, oferecendo condi- 
ções para que o micro aceite outros perifé- 
ticos. 
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Listagem 1 


à FAST 

10 SCROLL 

13 SCROLL 

20 PRINT “ENDERECO?“ 

es INPUT ES 

30 LET E=CODE EGx40976+CODE Et 
PINTA +CODE ERC(I)XISGACODE ESC4)- 
igedada 

dy LET Us” 

40) SCROLL. . 

45 PRINT E6s” “ sCHR$ CINT (P 
EEK E/14)+28)+CHRE (PEEK E-INT < 
PEEK E/ig)xió+2a)+”” tes 

50 IF U6="" THEN INPUT US 

so IF Ut="M” THEN GOTO 40 

36 IF UB="Z” THEN GOTO 4100 

37 IF Ub="" THEN GOTO 7& 

dO PRINT USC TO 25» 

63 POKE E,CODE UbBxié+rCODE UCA 
)-47& 

70 LET UB=UBCI TO ) 

7à LET Ex=E+ri 

80 LET A=INT (E/236) 

83 LET B=E-As2g6 

20 LET EB=CHRS (INT (A/16)+28) 
+CHRE (CATINT (A/i6)RLSHEB) +CHRE 
CINT (R/46)+28)+CHR$ CB=INT (B/1 
6)%IG+AB) 

95 GoTo 40 

100 CLEAR 

105 DIM ASCA04B) 
FOR A=i TO 2048 
LET ASCA)=CHRE PEEK CA+r3071 


NEXT à 
PRINT AT 24,0:“PRONTO PARA 


130 PAUSE 4E4 

133 SAVE “MICRO BUG? 

140 FOR A=1 TO 2048 

145 POKE Ar3D74P,CODE ASCA) 
1350 NEXT À 





sistema grava na fita cassete uma cópia 
do SGM, ou de tudo que já houver sido 
digitado. 

Os blocos Assembler são de digitação 
direta, porém as listagens em mnemôni- 
cos requerem um cuidado maior (veja a 
listagem 2). Elas são constituídas, na 
maioria das vezes, por quatro colunas, A 
primeira (à esquerda) corresponde aos 
endereços em hexadecimal onde estão 
(ou estarão) os códigos de máquina. Na 
segunda coluna estão os códigos propria- 
mente ditos e na terceira coluna estão os 
mnemônicos correspondentes a estes 
códigos. A quarta coluna constitui uma 
opção para comentários e estes serão 
sempre referenciados por um ponto e 
vírgula. 

Para digitar a listagem em mnemôni- 
cos, responda à pergunta ENDEREÇO? 
com o primeiro endereço da coluna 1 e 
a seguir introduza os códigos da coluna 2. 

Toda vez que for digitar códigos de 
máquina, em blocos ou em listagens, 
não esqueça de fazélo com a maior 
atenção possível, pois qualquer erro será 
invariavelmente fatal. É preferível per- 
der-se um pouco mais de tempo na digi- 
tação do que procurar um código errado. 
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A na cassia mim 


Ainda com relação à listagem 2, note 
que em ambas as rotinas o valor original 
do par HL é preservado. O SCROLL pa- 
ra cima ajusta a próxima impressão em 
AT 21,0 e o SCROLL para baixo em 
AT 0,0. Observação: nos comentários, 
algumas instruções LET e THEN são 
omitidas para simplificar a explicação; 
todos os valores, salvo os endereços do 
próprio SGM, são apresentados em deci- 
mal. 


A APRESENTAÇÃO 
E A IMPRESSÃO DE STRINGS 


Todo programa que pretenda um 
mínimo de clareza deve conter alguns 
elementos que o identifiquem e criem 
uma distinção em relação a outros pro- 
gramas. Além disso, é importante man- 
ter a fonte, pois pode-se necessitar, no 
futuro, de informações acerca do siste- 
ma. Se a origem do programa for omiti- 
da, poderão ocorrer problemas de infor- 
mação dificeis de serem solucionados. O 
crédito do autor também não deve ser 
substituído pelo nome do usuário, pois 
tal atitude não resulta em nenhum ga- 
nho para o seu praticante, a não ser tal- 


vez a satisfação de ver seu nome na tela 
do video, 


O SGM possui uma apresentação bas- 
tante sofisticada, porém sua mecânica é 
simples. O sistema todo funciona através 
de SCROLL, tanto para baixo como pa- 
ra cima (veja listagem 2), porém a prin- 
cipal linha é sempre a da posição 21. 
Quando se entra no sistema, ou quando 
se produz um RESET, é apresentado o 
nome MICRO BUG, seguido da fonte 
MICRO SISTEMAS e logo abaixo o 
nome do módulo, se houver algum im- 
plementado. A posição AT 21,0 contém 
o prompt * > ? eo cursor (GRAPHKCs 


Os comandos funcionam diretamen- 
te, sem label, e cada tecla corresponde a 
um comando. As teclas de S a Z são ré 
servadas para o módulo que estiver im- 
plementado. 


A impressão do nome MICRO BUG, 
em caracteres gráficos, será detalhada- 
mente discutida quando virmos a im- 
pressão de valores numéricos, pois ela 
utiliza, através de um macete, a rotina 
de impressão de dois dígitos hexadeci- 
mais. O princípio de impressão das 


Listagem 2 





rotina ESCRUP 


7Ba Eu 

fé 2A OC 40 
7864 ES 

7864 Aí 

7868 49 

7869 Di 

7868 Di 

786D ED 

786F DE 

7871 A? 

7/87/72 ED 

7874 ga 

78077 Ei POP HL 
7878 C9 RET 


PUSH HL. 


PUSH HL. 

LD DE, 0024 
ADD HL, DE 
POP DE 

LD BC, U2D6 
LDIR 

LD C,41 
AND A 

SBC HL,BC 


rotina BSERDN 


7879 ES 
787A 2A OC 40 
7870 ES 
7B7E Of B4 OR 
feas DO 
7882 4i 2í 00 
7883 ES 
7Bsa 19 
7887 Dá 
reas EB 
7889 ED 
7yaaB AF 
788 Ué 
788E 23 
7B88F 77 
7890 40 
7892 ES 
793 as 
7894 48 


PUSH HL 


PUSH HL 

ED BC,0284 
ADD HL,BC 
LD DE=0021 
PUSH HL 
ADD HL, DE 
POP DE 

EX DE,HL 
LDOR 

XOR A 

LD B,20 
INC HL. 

LD CHL),A 
DJNZ Z88E 
POP HL 

INC HL 

JR 7874 


(scroll para cima) 


LD HL, C4DOC) 


LD (AQOE),HL 


LD HL, CADOC) 


sarquiva HL 
HL=ZPEEK 16396 GRPEEK 16397 


;DE=33 
3HL=HL+DE 


;BC=726 
sproduz o seroll 
pUmáci 


;HL=HEL BC. 

«POKE 163PB,L é POKE 16399,H 
«recupera HL 

sRETURN 


<scroll para baixo) 


rarquiva HL 
sHL=PEEK 16396+2564PEEK 16997 


sBO=69E 
3HL=HL+BC 
sDE=33 


FHL=HL+DE 


sinverte valores DE e HL 
sproduz scroll 

sA=0 

5B=32 

sHL=HL tá 

sPOKE HL,á 

sB=B-1 2 IF B<X>)0 GOTO 788E 


sHL=HL 44 
sGOTO 7874 
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LU LAT HH vadaaAtaAçÇOR cotas a 


Egas gp pgecpentige nt mer Et eme ereta me 


deco masa | 


es 





Listagem 5 | definiremos uma tabela de endereços 


que corresponda a cada uma das teclas. 
Nosso intervalo válido será de Aa Ls 





1 
Lina GPRINT Pegmac de strince z j 
rotina PRINT Cmpregsaçw de gt ing) sendo que qualquer outra tecla deverá E 
ser rejeitada pelo sistema. a 
ZEUS CD 60 76 CALL 786 FGOBUB GSCRUP ; o E; 
ip and a dE add sil dia A tabela propriamente dita inicia no E 
7804 CD 60 78 CALIL 7860 sBOSUB GSCRUF : 2973 |: | 
7BUZ Ei POP HI sHL=ender do carac endereço 7940 e vai até o endereço 7973. : 
7808 ZE LD A,CHI) FASPEEK HE Cada dois bytes possuem o endereço de “l 
7809 Es ZE AND ZF PER ADiBB THEN LET Amá-LpB, execução de cada comando (veja lista- UE 
788 D7 RST 40 SPRINT CHR$ A; gem 4). 1 É. 
7800 CB ZE BIY Z,(HL) SIP PREK HELDARE THEN LET Zu() E 
PECE 29 INC HE 3 HlaHI 44 Quando se entra no MICRO BUG, ou J 
78CF ES PUSH HI. srepos STAUK após um RESET, ou quando termina a E | 
78D0 GO RET NZ sIÊ Za) THEN RETURN execução de um comando, o sistema mn 


seja pressionada. Se para aquela tecla 
não houver comando, o sistema informa E 
com a mensagem COMANDO INEXIS- Uh 
TENTE. A este estado daremos o nome EE 
de Loop de Comando. (Na listagem 4, | 
observe que os comandos de S a Z são 


para imprimir uma string (por exemplo PRINT “MICRO SISTEMAS) q 
implementados automaticamente pelo E 


procedimento deve ser o seguintes 

meme CD CS 78. CALL 7804 módulo específico. O endereço 7434 E. 

mento SJ 2EÊ 28 47 define MICRO SISTEMAS equivale a COMANDO INEXISTENTE e E | 
34 00 38 RE deve constar de todas as letras cujos E 
SH 39 RA qa comandos ainda não estejam no SGM). P 
Pe] Bt o Hu 

KRXMMHAZ LÊ sua Elia O Loop de Comando (listagem 5) E 






é constituído por uma rotina bastante 
simples e que funciona da seguinte for- 





strings, por outro lado, baseia-se na sua 
definição logo após uma chamada 
CALL, o que em BASIC equivaleria a 
PRINT “texto”. 

Isso é possível pela manipulação do 
Stack da Z80 (listagem 3). Logo após a 
chamada, o sistema obtém o endereço 
de retorno, ou seja, O endereço após 
CALL, e passa a imprimir como caracte- 


Listagem 4 — Tabela de Definição 
dos Comandos 






FAIA «comando À 







) 7948 34 ZA der ZAZ4 scomando B 
es os bytes subseglientes. A cada byte 7944 34 ZA det 7A34 scomando £ 





impresso, o Stack é atualizado para que, 





























no final, o sistema saiba para onde vol- 7746 34 ZA der ZA34 scomando D 
tar. A sinalização de final de string é 948 UM PA der ZA34 scomando E 
feita pelo bit 7 do último caráter. Se ele PPA 34 ZA def ZA34 scomando E 
estiver setado (= 1), então o sistema re- POA BA ZA def ZABA scomando G 
torna para a instrução seguinte à string. PPA 34 ZA def ZABA4 scomando H 
Ra tai iai En Epil ao 7950 34 7A def ZA34 «comando | 
e pode ser facilmente alterado para á is a E E E ae E ZRaa a ad vá e o 
outros usos. A maior característica dele 904 34 ZA def ZAJA sComando K 
é que, na string definida, o último cará- PP JA ZA def ZAJA “comando L 
ter deve ser sempre em vídeo inverso 7958 4 PA def ZA34 comando M 
(repare, também na listagem 3, que o PPA JA VA def ZA34 scomando N 
último S de SISTEMAS deve ser em cará- 7950 JA VA def ZA34 ecomando OQ 
ter inverso, e que após a impressão da PPSE JA TVA def ZAJA comando P 
a OTA DRT, para executar 7960 34 ZA der ZA34 scomando Q 
s i Pé BA PA def ZA34 scomando R 
TABELA DE COMANDOS, RESET 7944 34 ZA def ZASA comando & 
E A ENTRADA NO MICRO BUG /Phb UA ZA def ZA34 comando T 
7968 34 7A def ZA3A scomando UU 

Para que o sistema responda às teclas 79bf JA TA def 7834 scomando Y 
pressionadas com a execução de um 7960 34 7A def ZABA scomando W 
comando é preciso que haja algum tipo Z96E 34 PA def ZA3A scomando X 
de A THEN CORO: IF INKEY'S 2970 34 ZA der ZASA4 “comando Y 
Na realidade, O processo utilizado no PPP JA ZA def ZAJA sCcomando Z 





SGM é bastante diferente deste, ou seja, 
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É 
à 





O COMANDO M E AS PRINCIPAIS ROTINAS DO SGM 


Listagem 5 — Loop de Comando 





LD (793E),8P 
CALL 79B4 
CALL OF28 

LD HL,7927 
BIT 2,(HL) 
CALL NZ,7840 
LD SP, (793E) 
LD A,12 

RST 40 

LD HL, (400E) 
LD (HL),04 
CALL 7BAA 
CALL ZB8D2 

CP 77 

JR Z,7408 

CP 76 

JR z,7408 
RST 40 

CALL 7BAA 
SUB 26 

JR C,7A34 

CP 14 

CCF 

JR C,7A34 
RLA 

LO B,00 

LD C,A. 

LD HL,7940 
ADD HL,BC 
LD E,(HL) 
INC HL 

LD D,(HL) 

LO HL,7A4A 
PUSH HL 
PUSH DE 

RET 

CALL 78C4 


CALIL. 7840 
CALL 7840 
JR Z79FE 


ma: os comandos são chamados como se 
fossem sub-rotinas. Para o retorno ao 
Loop de Comando, basta haver uma 
instrução RET, mas em comandos mais 
complexos pode-se lançar mão de um 
RESET que, dependendo do endereço 
de JUMP, vai produzir um resultado 
diferente. 

No endereço 79EE o RESET é total, 
havendo a impressão do título, fonte e 
módulo implementado. No endereço 
79FC o RESET não produz alterações 
na tela de vídeo, o que pode causar 
alguma confusão com o cursor. No en- 
dereço 7A4A o RESET produz dois 
SCROLL para cima, repondo o cursor 
na posição original 21,0. Observação: na 
listagem 5, note a forma como foi en- 
contrado o endereço de execução do co- 
mando e o modo como ele foi chamado 
(o RET do endereço 7A33 equivale a 
um GOTO, pois usa a manipulação do 
Stack como forma de desvio controlado). 
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sarquiva SP para reset 
imprime titulo & fonte 
simplementa SLOW 
sverifica se ha" modulo 
implementado 


srecupera SP 
prompt “5” 


cursor 

sidentifica tecla pressignada 
se houver 

signore se for DELETE 


signore se for ENTER 


simprime tecla do comando 
rsespera tecla ser liberada 
pcalcula valor da tecla 
stecla fora da faixa 

imprime COMANDO INEXISTENTE. 


smultiplica tecla por & 
;BC= valor modulo para a 
TABELA DOS COMANDOS 
sbase da tabela 


sDE= ender de execussao do 
comando 


sprepara retorno e execussao 
do comando 


sexecuta comando 
s imprime mensagem 
COMANDO INEXISTENTE. 


sscroli para cima 
sscroll para cima 
saguarda novo comando 





AS ROTINAS 
OPERACIONAIS DO SGM 


Existem ainda outras rotinas opera- 
cionais no SGM, mas não as veremos de- 
talhadamente agora uma vez que algu- 
mas são bastante complexas e necessi- 
tam de um certo conhecimento de lin- 
guagem de máquina. Mais na frente ire- 
mos retornar a elas, mas para os que já 
conhecem o Assembler a figura 4 con- 
tém uma lista com os respectivos nomes 
e endereços. As rotinas estão na listagem 
6 e devem estar no SGM antes de fazer- 
mos a nossa primeira entrada nele. 


O COMANDO B 


Quando fizermos a nossa primeira 
entrada no MICRO BUG, devemos ter O 
cuidado de ter implementado o coman- 
do B, pois será ele quem produzirá o 
retorno ao BASIC. A utilização deste 


aaa 
Rotinas do SGM 








crioscéal 


Ip MRE re oi qa pr Tp Lt 





à 
: 
5 
É 
E 
É 
k 
k 
Z 


a 





comando é direta, ou seja, quando o 
sistema estiver no Loop de Comando 
bastará pressionar a tecla B. Para a im- 
plementação, faça as modificações da 
listagem 7. 


O COMANDO M 


O comando M será detalhado nos 
próximos tópicos pois requer uma série 
de cuidados para a sua compreensão — 
no momento estamos muito mais inte- 
tessados em ver a coisa funcionar do que 
ha teoria propriamente dita, certo? A 
listagem 8 contém todo o comando que 
deve ser implementado da mesma forma 
que o comando B (não esquecer de alte- 
rar à Tabela de Comandos). 

O funcionamento do comando M 
possui, de certa forma, toda a mecânica 
do sistema MICRO BUG. Ele é o princi- 
pal recurso do SGM, pois permite que to- 
da a memória do micro seja vasculhada e 
que, na RAM, possa haver modificações. 
Lembre-se, no entanto, que não é o co- 
mando quem altera ou modifica os 
dados e sim o operador; portanto, antes 
de fazer qualquer coisa convém saber o 
que se está fazendo. 

No Loop de Comando, ao ser pressio- 
nada a tecla M, o sistema imprime M, 
pula um espaço e passa a esperar um ende- 
Teço. Se a tecla ENTER for pressionada, o 
sistema utilizará o último endereço utili- 
zado pelo comando M anterior. Caso 
Contrário, o que for digitado será inter- 
pretado como um endereço em hexade- 
cimal. Após a digitação de um endereço, 
O sistema o imprimirá na última linha, 
papo de seu conteúdo em hexadeci- 


Nesse estágio, muitas opções podem 
ser utilizadas. São elas: tecla K (+) 
ata um endereço); tecla J (—) (re- 

ocede um endereço); tecia BREAK 
(interrompe o comando e retorna ao 
Loop de Comando); e teclas 0, 1, 2,3, 
4, 5,6,7,8,9,4,B,C,D, Ee F (são 
interpretadas como um dado em hexa- 





BBYTEC/ESE) 
GLONTR (7898) 
GCONT<ZEAR) 


rotina de 


liberada 
BTEMPOCZBRBZ) 
EKEYC78D3) 
BCLS(798) 
EGRAPHC 940) 
BCURSOR (7 A82) 
BVALDECZADGE) 
SENDER CZBU2) 


rotina do cursor 


Figura 4 


decimal para modificar o conteúdo do 
endereço na posição AT 21,0). 


ENTRANDO NO MICRO BUG 


Se você leu o texto com atenção, se- 
guiu à risca as instruções e já digitou tu- 
do, tanto os blocos Assembler quanto as 
listagens em mnemônicos, então está na 
hora de entrarmos no SGM e verificar- 
mos se, na prática, a teoria funciona. 

Em primeiro lugar, faça uma cópia 
do SGM, pois ainda não sabemos se 
tudo funciona direitinho. Em segundo 
lugar, dê um NEW, pois a partir de ago- 
ra, para continuarmos a digitar, iremos 
utilizar o próprio SGM. Dê então um 
RAND USR 31210 e lá vamos nós... 

Se correu tudo bem, no alto da tela 
irá aparecer MICRO BUG em letras gar- 
rafais, a fonte MICRO SISTEMAS e o 
cursor no canto esquerdo do vídeo. Não 
vacile agora e teste o comando B como 


rag 4D 79 


791D CDC za 

7920 2a am gE 
AB 

PPM Es 

905 (9 


CALL, 


POP Hi. 
RET 





def 791íD 


7807 


impressao de um valor em hexadecimal 
rotina de manipulacao dos bits de MELAG 
rotina de espera ate que a tecla pressionada seja 


retarda a execucao do sistema por algum tempo 
espera por uma tecla pressionada 

produz um CLS ny video 

modo GRAPHICS de BUURSOR 


obtem um valor numerico digitado pelo usuario 
imprime um endereco 


primeira providência, pois não queremos 
que o micro perca o rumo de casa. 

Retorne ao MICRO BUG e vamos en- 
tão ao comando M. Digite M e, como o 
sistema deve estar apontando para a 
ROM, vamos digitar um endereço qual- 
quer (na falta de um melhor serve 
4082). O resultado deve ser instantâneo, 
caso contrário deve existir erro em 
algum lugar. 

Teste a tecla K(+). Pressione-a por al- 
gum tempo e espere a tela ficar cheia. 
Agora pressione J(—) e veja o resultado. 
Vamos fazer outro teste: digite SHIFT S 
e retorne ao teste das teclas K e J. Veja 
a diferença, pois SHIFT S chaveia a ve- 
locidade de impressão (se pressionada 
novamente, retorna à velocidade lenta). 
Digite agora SHIFT 3 e o conteúdo dos 
bytes será apresentado como um valor 
decimal (SHIFT 3 retorna à condição 
inicial). SHIFT E faz a mesma coisa, 
porém com o endereço. 


Listagem 7 — Comando B 


scomando B 
simprime sem scroll 
sASIC 


slimpa STACK 
retorna ao Basic 





OS ANJOS DA GUARDIAN 








Estabilizador Eletrônico 


mini REG 


Proteção ultra-rápida contra variações 
da tensão da rede em até + 22% 
estabilizando-a em + 1%. 

Capacidade de 
0.25, 0.4. 0.6,0.8 
e1kKvA. 







com autonomia 
de 90 minutos q 
a plsnacarça. Le 


R. Dr. Garnier, 579 - CEP 20971 - Rocha -Tela.: PABX 






roteção integral para o seu Micro 


Gerador Eletrônico 

Quando a rede elétrica faltar, GERATRON 
continuará alimentando o seu micro como se nada 
houvesse acontecido. E 

Capacidada de 200 V/ 
continuamente 

é 500 VA de pico. 
Bateria interna 






NO-BRIEAK 
- Linha Especial para Micros 
Proteção completa para 0 seu micro, 


mantendo a alimentação altamente 
estável e sem interrupção. Forma da 


0.6, 1,1.5,2.5, 3.56 5 KVA. Opera com 
quatro baterias comuns de 12 volts. 


GUARDIAN 


EQUIP, ELETRON. LTDA. 


(021) 261-8458 - Dirato 201-0195 - Telex nº (021) 34016 - Rio de Janeiro - RJ 


Representante São Páulo - Tel.: (011) 270-3175 - Representantes em todas as capitais. 











onda senoidal. Capacidades de 0.25, 0.4, 


2a 








O COMANDO M E AS PRINCIPAIS... 


Como já vimos, os conteúdos podem 
ser modificados, bastando que o usuário 
digite um dígito hexadecimal. Essa con- 
dição pode ser alterada por SHIFT D, o 
que faz o sistema aceitar um valor deci- 







7 E 




















*B 


7 


mal. A entrada em decimal, por outro 7846 A el) 
lado, requer a tecla ENTER para validar Bad 40 78 
as modificações. 7888 79 CB 
Na realidade, o MICRO BUG funcio- “paro ME Ar 
na com números tanto em decimal quan- “BSD 79 9B 
to em hexadecimal. A sua condição nor- > 2 A? ED 
mal é, de preferência, em hexadecimal, pes e 
por serem números de fácil manipulação. á b 7 b) Ar 27 
No entanto, se o usuário desejar intro- 7883 LD E 
duzir um endereço em decimal, basta 7B8B CD Ss 
anteceder o valor pelo especificador 8 “Bo FPB E) 
(desse modo, 4082 em hexadecimal equi- “Bop 4 am 
vale a 816514 em decimal). Essa condi- nã BAS DE CU 
ção também poderá ser alterada, mas >p AB EB 45 
isso será visto mais adiante. Vale relem- ua Es 
brar que a partir de agora usaremos o 76 8 à o B 7 É 
próprio SGM para as novas implemen- ZBBB 768 Dá 
tações. 2803 Sa 7B 
7BCB gb EF? 

“7/7809 dC rb 

*BD5 Cb AR 

——————————— PRESS o Ga PA 
Este projeto vem sendo desenvolvido pela equi- BEB o gt DE 


pe do CPD de MICRO SISTEMAS, sob a coor- 
denação de Renato Degiovani. 







7RF'3 








"A 





“8 


79 
CD 
Aé 
4? 
Pas 
Ae 
Co 
7 
7 
ct 
ES 


EP 


(o) 
0) 
íl 
40 
+ E, 


A 
NAN 


7 E 
(1. 
40 
ii 


pe 


E 
7B 
(13 
98 
79 
79 
A 

2B 
48 
30) 
2 
í8 
Og 


í? 
Do 
30 


E 
et 


A E. 
18% 
GO 


| Listagem 8 — Comando M | 


def 7878 





Ab! 
ZE. 
[5 
() [é 


7% 
o á. 
SE. 
rafa 
is 
1.6 
A) 
A] 
CO 


Cl) 
e é 
783 
4) 
RIR 
DA 
Ot) 
7 
D, 3 


E E 
04 
79 
PA 
17 
â 
Dé 
ZA 
AD 
a 
DD 


seomando M 


ATENÇÃO LOJAS E REPRESENTANTES 


Novas lojas surgem em todas as partes do 
país, enquanto as já existentes ampliam seus 
negócios e diversificam suas linhas de produtos 
e serviços. Elas são o termômetro deste incrível 
mercado. 


Para acompanhar esse acelerado crescimento 
a nível nacional, MICRO SISTEMAS está precisando 
do auxílio destas empresas, mediante o 
fornecimento de informações básicas sobre suas 
atividades. 


Portanto, se você é Diretor ou Gerente de uma 
Loja, ou Revendedor de sistemas ou suprimentos 
de microcomputadores, mantenha o nome “de 
* sua empresa presente e atualizado em nosso .. 

cadastro de informações, mandando-nos os 





seguintes dados: 


* Razão Social 
RE ge com 
º“ Endeteço e Telefone 
- * Produtos que comercializa (hardware, software, 


“publicações, móveis etc) 


e Nome dos Diretores /Gerentes 


e Um breve histórico da firma 

E quaisquer informações que julgar 
importantes. 

Estes dados vão nos ajudar a fazer uma 
cobertura: mais completa do mercado brasileiro 


de microinformática, aumentando sua divulgação 
e, eventualmente, transformando em notícia o 
nome de sua empresa. 


Redação de MICRO SISTEMAS 
Av. Presidente Wilson, 165/grupo 1210, Centro, Rio de Janeiro, RJ, CEP 20030 
Tels.: (021) 262-5259 







EO 











mis rtmriça queima 


aa OS EVA READ AA tr a Pas dr a Ae a a pag a care 








oULU 


FEAR E 


MIRMAETE 


não importa o tamanho de seu problema, 
nós temos a solução na medida exata! 


CP-200 com 
SPEED 


LINGUAGEM BASIC 

16 K DE MEMÓRIA 
VELOCIDADE DE 
TRANSFERÊNCIA 14 VE- 
ZESMAIS RAPIDA 


a mB 


L E Tm: 


MICRO: 
LINGUAGENS COBOL 
BASIC E FORTRAN 
64 Kk DE MEMÓRIA 
DUAS UNIDADES DE 
DISCO 


. 


ACESSÓRIOS 


SOFTWARE € MESAS € DIS. 
| QUETES & ARQUIVOS € 
FORMULÁRIOS CONTI 
|| NUOS 6 ESTABILIZADORES 
DE TENSÃO € UNIDADES 
DE DISCO FLEXÍVEL O ETC. 


MODULAR 

LINGUAGEM BASIC 

48 K DE MEMÓRIA 
COMPATIVEL COM 
SOFTWARE DO CP-500 


IMPRESSORA: 
e VELOCIDADE 130 CPS 
MATRIZ 7x9 
132 COLUNAS 
ORIGINAL +5 CÓPIAS 


APROVEITE! 


PROMOÇÕES ESPECIAIS € 
FINANCIAMENTO € LEA. 


SING € CONSÓRCIO € CAR- 


TÕES DE CRÉDITO: CREDI- 


| CARD, NACIONAL, ELLO. 


LINGUAGEM BASIC 

48 K DE MEMÓRIA 

ATÉ 4 DRIVES 

SAÍDA PARALELA SE- 
RIAL 


VELOCIDADE 200 CPS 
MATRIZ 7x9 
INTERFACE: 
PARALELA, 

SERIAL 


VELOCIDADE 100 CPS 
MATRIZ 9x 7 
INTERFACE: 
PARALELA 

SERIAL 


e BPENAS 
e ÁREA DE TRAÇADO 
10 x 15 POL. 


| * INTERFACE R$232 


Fileres Importação e Representações Ltda. 
Rua Aurora, 165 — CEP 01209 — São Paulo — SP 
Telex 1131298 FILG BR — PBX 223-7388 — Ramais 2, 4, 
12, 18, 19 — Diretos: 2231 446, 222-3458, 220-5794 e 
220-9113 - Reembolso — Ramal 17 Direto: 2220016 — 220-7718 





“ . + “ 
PARTE qu Nr EEE AOS EN DR da DER DES Cediuisa fio EPE PA 
aid EN qe: E Sado Ea rig E ita dai SO 














Neste artigo, iremos aumentar o vocabulário do compilador FORTH publicado em MS 22, 
inclusive criando comandos bastante úteis para a programação de jogos 








E 


Outras palavras em 
FORTH 





lvan Camilo da Cruz 





m MICRO SISTEMAS número 22, foi apresentado 
um compilador para a linguagem FORTH de autoria 
de Antônio Costa. Este artigo introduziu aos leitores 
desta revista esta fantástica linguagem, que consegue 
ser ao mesmo tempo simples, compacta, rápida e poderosa. 

A linguagem FORTH é muito flexível. Com ela, ao contrá- 
ro das outras linguagens, nós podemos definir novos coman- 
dos a partir dos já existentes, ou então diretamente em lingua- 
gem de máquina. Neste artigo, desenvolveremos novos coman- 
dos extremamente úteis, inclusive um que permite salvar o 
compilador FORTH em disco. Mas, atenção!!! Todas as pala- 
vras aqui propostas devem ser criadas usando base 16. Para 
passar para a base 16, utilize o comando HEX definido no 
artigo publicado no número 22. 

A possibilidade de incluir novos comandos, entretanto, cria 
uma dificuldade: é necessário lembrar quais as palavras que já 
foram definidas em nosso FORTH. Por isso, alguns FORTHs 
trazem em seu vocabulário a palavra VLIST ou outra similar, a 
qual serve para listar o vocabulário. (É possível implementar 
VLIST neste compilador, e é o que faremos mais adiante). 

Uma palavra FORTH, na versão que foi apresentada em 
MICRO SISTEMAS, fica armazenada na memória da seguinte 
forma: 


1 byte com o número de letras da palavra; 

a palavra; 

2 bytes com um link com a palavra anterior; 

2 bytes com o endereço do código de máquina associado a 
ela; 


e parâmetros (dados ou endereços de outras palavras). 
Vamos usar como exemplo a palavra END,: 


ENDERECO CONTEUDO COMENTÁRIOS 

4177 04 Numero de letras da palavra 

6178 "ENO," À palavra 

617E és él Link com a palavra 
anterior €FTOKEN) 

ó17E OA SE Endereço da rotina em linguagem 
de maquina associada com esta 
palavra. 

4180 EE 45 Endereco da palavra "," 

alBr k eF à6 Endereco da palavra “HERE” 

6184 ES 42 Endereco da palavra "=! 

6186 03 48 Endereco da palavra “C," 

81889 Fê 50 Endereco da rotina de retorno. 


Note que todos os endereços estão na ordem LSB-MSB (by- 
te menos significativo — byte mais significativo). A primeira 
palavra tem link = O para indicar o início do vocabulário. Co- 
mo podemos ver, para listar o vocabulário FORTH nós deve- 
mos começar pelo fim e terminar no início. 

Assim sendo, para listar o dicionário bastaria criar uma pa- 
lavra que tirasse o endereço da pilha, listasse a palavra associa- 
da a ele e em seguida colocasse na pilha o link desta palavra 
com a anterior, repetindo a execução desta palavra até que o 
link encontrado fosse zero. Porém, não basta somente isso... 

Nesta versão do FORTH existem dois vocabulários. Além 
do vocabulário comum, existe um outro, que se chama voca- 
bulário de compilação. O vocabulário de compilação tem a 
mesma estrutura do vocabulário comum, com apenas uma dife- 
rença: o endereço de sua última palavra é dado por COMPI- 
LERE , enquanto que o endereço da última palavra do voca- 
bulário comum é obtido pela palavra ENTRY. 
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Em DB calos 


& Mm 
ENREDO — RES 4) 


RENNES era 4 NE «+ PRI, 


RR o A Se A em O 


| 
Ê 
EI 
ç 
$ 
| 
$ 
t 
| 
é 
] 
q 
| 
: 
| 





meme DN 


VAMOS À IMPLEMENTAÇÃO 


— uu. Dl 


A palavra que lista uma única palavra será escrita em lin- 
guagem de máquina para aproveitar uma sub-rotina que está 
incluída no compilador. Esta rotina começa em 5E47H e 
termina em SES0H, e sua função é listar uma string cujo com- 
primento está no registrador E e cujo endereço inicial está no 
registrador HL. No retorno, HL aponta para a última letra da 
siring. Eis a nossa palavra escrita em linguagem de máqui-” 

a / 


Ei PDP HL tira endereco qa pirná 


] 

SE Li E,CHL) ; le numero de letras da 
; palavra 

es INC HL + aponta para o inicio 
; da palavra 

CO 47 SE CALL JE47 5; lista a palavra 

E3 INC HL ; aponta para o link 

SE Lo E,CHL) ;+ carrega o link no par 

es INC HL ; de registradores 

Jó [6 D,tHL) 3 DE. 

D3 FUSH DE ; coloca link na pilha 

C3 FE so JE NEXT 3 retorna 


Para implementar esta mesma palavra em FORTH, digite: 


CREATE LISTA-PALAVRA El C, SE C, 23 C, CDC, 5E47 
23 C, SEC, 23C, 54 C, 05 C, NEXT 


+ 


Muita atenção, pois pelo menos um espaço deve ser coloca- 
do entre cada símbolo da linguagem (números ou palavras). A 
palavra NEXT encarrega-se de colocar os bytes C3 FE 5D. 

Agora precisamos implementar uma palavra que liste um 
dos vocabulários completamente. Ela irá buscar na pilha o 
endereço da última palavra do vocabulário. Para implementá- 
la, digite: 

: LISTA-VOC 
BEGIN 
LISTA-PALAVRA 
ASPACE DUP EMIT EMIT 
EUR O= 
UNTIL 
CRP 

Observe que esta palavra usa as palavras BEGIN c UNTIL, 
que foram definidas em MICRO SISTEMAS número 22. Você 
deverá incluílas no vocabulário antes de definir a palavra 


' LISTA-VOC. 


Finalmente, vamos implementar a palavra VLIST, a qual 
listará os dois vocabulários: 


: VLIST 
CR ENTRY LISTA-VOC 
CR CONPILER E LISTA-VOC 
GR 


PALAVRAS ÚTEIS EM JOGOS 


FORTH é uma linguagem muito boa para a criação de jo- 
gos. Existem, inclusive, algumas palavras que são imprescin- 
díveis para isto, como por exemplo: INKEY (varre o teclado 
sem esperar pelo pressionamento de uma tecla); PO (lê um 
byte de uma porta); P! (transmite um byte para uma porta): 
SET (seta um ponto na tela); RESET (resseta um ponto na 
tela); POINT (testa se um ponto está setado ou não). Vamos, 
então, implementar todas estas palavras. 

* INKEY — Faz uma varredura do teclado. Se alguma tecla 
estiver sendo pressionada, o código desta será colocado na pi- 
lha; caso contrário, um zero será colocado na pilha; 


CD 26 00 CALL 002 + varre teclado 

ár LD L,A ; carrega L com o codigo 
5; da tecla pressionada 

26 00 Lo H,0 3 e Hcom 0 

ES « PUSH HL 5 coloca na pilha 

US FE SO JF NEXT ; retorna 
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CARO CONSUMIDOR 


Mais barato impossível. 
E o cliente é quem 
faz o financiamento 







TK 2000 Cr$ 849.850,00) 














TK 85 Cr$ 369.850,00 
Dactron Cr$ 1.299.000,00 
CP 500 c/2 Drives Cr$ 3.900.00,00 
Intellivision Cr$ 240.000,00 
Mônica Cr$ 1.390.000,00 
Drives Cr$ 649.850,00 
Diskettes Cr$ 6.300,00 






Jogos p/TK 2000 - a partir de Cr$ 
Jogos p/Intelilvision - a partir de Cr$ 


9.000,00 
25.000,00 









Placas CPM Progus Cr$ 200.000,00 
Programas Aplicativos Cr$ 20.000,00 
Fitas p/Video Cassete Cr$ 17.500,00 
Cabo p/Impressora Cr$ 90.000,00 






Mesas p/Computador 
Mesas p/Impressora 


varia de acordo 
com o modelo 








Temos diversos óutros produtos com o 
melhor preço do mercado. Os preços são da 
ORTN do mês de Abril, podendo aumentar 
ou diminuir de acordo com os produtos que 
estarão em promoção da semana. 

Temos Curso de Basic para adultos é 
crianças com aulas teóricas e práticas com 
Micros. 

Diversas turmas e horáriss. 
Venha fazer-nos uma visita. 









BRASILTRADE CENTER 


Av. Epitácio Pessoa, 280 (Esq. com Visc. de | 
Pirajá) (Aberto diariamente até às 22:00h) 

CEP 22471, tels.: (021) 259-1299, 2591499 e 2591542. 
Assembléia, 10 - loja 112 — Centro Empresarial 
Cândido Mendes. 














OUTRAS PALAVRAS EM FORTH 





Em FORTH, 
CREATE INKEY CD C, BE , 6F CE, 26 E, 0 C, ES E, NEXT 


“ 


e PO — Lé um byte da porta cujo número está na pilha; o 
byte será colocado na pilha: 


a EXX 
POR EC ; numero d: 
ED 58 IN Est) donas ese 
= 00 LD 1,0 
PUSH BE mis si : sigo 
09 EXX ; Entoes byte na pilha 
C3 FE 50 JP NEXT na 
Em FORTH, ? 


CREATE PG DP C, CIC, EDC, 58C, 16 6,0 €, 05 e, D9 €, NEXT 


e P! — Transmite um byte para uma porta. O número da por- 
ta está no TOS e o byte em 20S. Esta palavra é particularmen- 
te útil na criação de efeitos sonoros: 


(Uh EXX 
Ci FCP RE ; porta 
Di FOR ou 1 byta 
EO 59 ur C),E 5 transmite 
09 EXX 
C3 FE Sb Je NEXT 
Em FORTH, 


CREATE P! 9 C, C1C, DIC, EDE, 59 6, DP E, MEXT 


Agora, antes de passarmos para as palavras SET, RESET e 
POINT, vamos criar uma palavra chamada GRAF em Assem- 
bler, que atuará como uma sub-rotina das outras três pala- 


vras. Esta palavra foi baseada em uma rotina do interpretador 
BASIC: 





D9 EXX ; salva registradores 
Dt POP BE 5 tira coordenada x 
TE Lo AE 3 é coloca em À 
FE 30 EP 30 5 »º 48 (decimal)? 
s8 18 JR C, HERE+16 ; nao, salta 
2179722 LO €-- HL,HERE+06 5 sim, imprime mensagem 
1E OC LADO E,OC 3 de erro 
Ch 47 SE 1! CALL | SE47 
D9 1 EXX 5; recupera registradores 
C3 FE 1 gr = REXT ; e retorna. 
46 4F 52 41 1 DEFM 1 “FORA DA TELA” 
20 44 41 20 1! ! 
MM 4540 41 1 ! 
ló FF --oLD 1 D,FF 
14 --5INC 1 D 5; E=quociente da divisao 
Dé 03 1 SUB 1 03 5 do registrador À por 
30 FE “JR 1 NC,HERE-S ; tres 
Cé 03 Bo 1 03 
4F Lã 1 C,A 5 C=resto 
EL POP 1 HL ; retira coordenada y 
7h LD 1 AL ; e coloca em À 
FE 80 Cr o 1 80 5 »= 128 (decimal)? 
30 DB JR ==— NE, HERE-28 5 Sim, volta e imprime 
3 mensagem de erro 
Br AUD [A] 3; nao, multipl. por é 
oF Lo E,A ; é coloca em E 
06 02 LO E,02 
?A --2LD AO ; move D e E duas veses 
ir 1 RRá 5; para a direita assim o 
o? 1 4D D,A 3 bit 1 de É vai para a 
YB E LO AGE 3 flag CARRY e o par DE 
1F H RRA ; aponta para O carac. 
SF H LO E,A 5 grafico que contem q 
10 F8 =-—DUNZ HERE-08 ; ponto- 
7? LD Asl ; Calcula a posicao do 
Br ABC [5 j ponto dentro do carac. 
sc ING À 3 grafico usando a for- 
3 mula (2%0)+1+CARRY 
47 LL B,A ; coluca a posicao de 
3 ponto em E 
AF XOR A ; Cria uma mascara com 
ELA Scr 5 o registrador A setan- 
sr --SADC [a] ; do o hit apontado pelo 
! ; valor de B e resetando 
- 64 


10 FD =—-(1JNZ HERE-05 5 Os qutros hits. 
4r LO cá 5 salva a mascara em € 
TA LD A, 3 DE aponta para q cara- 
F& 3€ OR 3C ; Ctere da tela onde es 
57 tú D,A ; ta” o ponto. 
1A LD AstDE) 3 carrega 0 caraç. em À 
e? OR ; e” caractere grafico? 
Fa MW 7 =--JP ni, HERE+4 s sim, salta 
3E 80 LO A, BO ; Nao, tas agora e“ 
47 em LD B,á 3 salva caractere em E 
Fi POR AF $ tira flag da gilha 
Br OR [a ; testa 
78 LE A,B ; recupera caractere 
28 11 JR Z,MERE+11 --—— ss flag=0? sim, pula 
le LE (DE),Ã | s recoloca car. na tela 
FA 92 97 ————=—— JP M, HERE+0C 1 34 flag=80? sim, pula 
79 t LD À,C ! 5 coloca mascara em À 
2F 1 CPL | s complementa 
4F ! Li C,Ã 1 s recoloca em E 
1A E LD ADE) H s coloca caractere gra- 
! Vs fico em À 

A! ! AND c 1 3 reseta o ponto 
12 ! LO <-- (DE),A 1 3 recoloca q caractere 
Do E -==3EXX 1 | + recupera registradores 
CS FE SD 1 JP ! NEXT ! 3 e retorna xs 
BI mm) nu SOR 1 C£ | s seta o ponto 
18 FB ' JR --=- HERE-08 | 4 volta 
[ie] ! AND c €<---— 4; testa o ponto. 
ei 00 00 ! Lo HL,0000 $ flag de retorno da 

1 5; palavra POINT 
es 01 1 ===JR Z,HERE+1 ; ponto esta” resetado? 
ec Fio INC L 5 nao, L=01 
Es | -->PUSH HL ; coloca na pilha 
18 EF eee JR HERE-11 ; volta 

Em FORTH, 


CREATE GRAF D9 C, DI €, TEC, FEC, 300, 38 C, 18 C, 

21 C, HERE B +, 1EC, 0CC, CDC, SE47, DOC, C3 E, SDFE, 
46C,4F 0, S2C,410, POC, 440, 41 6, 20C, 

54 C,45C, 40 €, 410, 16C, FC, 14 €, DEC, 03C, 30 €, 

FB C, C6 L, 030, 4F C, ELC, TOC, FEC, BOC, 30C, D8C, 

87 C, SFC, 06C, 02C, TAC, 1FC, S7C, TEC, FC, SEC, 

10 C, FBEC, 79 C, BFC, SCE, 47 C, AFC, 37C, BF C, 10 €, 
FOC, 4F C, TAC, F6C, 3CC, 57 C, IAC, BIC, FAC, 

HERE 4 +, 3EC, 600, 47 C FIC, B7C, 7BC, 28C, 11C, 12C, 
FAC, HERE C+, 79, BFC,4FC, IAC, ALC, 120, DIC, CIC, 
SDFE , 61 €, 18 C, FSC, AiC,21C,0,28C,01C, 2CL, 

ES C, 18 C, EF C, 


Como esta rotina é longa, eu aconselho o leitor a digitá-la 
aos poucos, no máximo 20 bytes de cada vez à medida que a 
confere, pois a possibilidade de erros é maior. 

e SET — Seta um ponto na tela cujas coordenadas X e Y são 
respectivamente o 208 e o TOS: 


: SET 8000 ROT ROT GRAF 3 


e RESET — Resseta um ponto e é similar à anterior quanto 
às coordenadas do ponto: 
: RESET 100 ROT ROT GRAF ; 


e POINT — Testa se um ponto está setado ou não. Se esti- 
ver, devolve 1 na pilha; caso contrário, devolve O: 


: POINT O RDT ROT GRAF 





SALVANDO EM DISCO 





Finalmente, vamos apresentar uma palavra que permite 
executar comandos de disco em FORTH. Esta palavra poderá 
ser usada com o sistema operacional NEWDOS/80 ou DIG- 
DOS100. Ela usa duas rotinas do sistema operacional. A, 
primeira é a rotina que executa um comando do NEWDOS e a 
outra é a que. mostra uma mensagem de erro. 

Inicialmente, vamos implementar uma rotina em linguagem 
de máquina que apanha o endereço do comando na pilha e o 
executa, imprimindo eventuais mensagens de erro que possam 
ocorrer durante a execução do comando: 
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Dea dMwO mM ÃO... 


Ot sSs A ABM. 


À Att AM 


- 


ASR DRM 35 o NEM pu ra Nibhoo e Pi TA ARE ON, NESSA ORNE, ETR PIO 











Ei “POR HL 


+ 
s mando, 
CO 19 44 CALL 4419 ; executa 
28 05 : JR 2,05 gs salta se não couve erro 
Fá BO OR so ; seta bit mais signifi- 
$ cativo de À 
CO 09 44 CALL 4409 ; imprime mens. de erro 
C3 FE 50 JP NEXT ; retoxna 
Implementado em FORTH, 


CREATE CMD-DOS EI C, CDC, 4419, 28 C, 05 EC, FS €, 
ED C, 4409 , NEXT 


Feito isso, vamos então implementar uma palavra que pre- 


para o comando para ser usado por CMD-DOS: 


E» CMB" 
Ze TOKEN 
HERE DUP QuE 
Cê + 1+ OD SUAR C3 
1+ CR CMO-DAS 


a 
É] 


Note que esta palavra deve ser criada na base hexadecimal. 
Para utilizá-la, digite CMD“ comando-dos”. Por exemplo: pa- 
ra obter o diretório, digite CMD” DIR” (o espaço colocado de- 


pois das aspas é obrigatório). 


Nós podemos usar este comando para saivar o compilador 


em disco, Para fazer isso, use a seguinte sequência: 
| — carregue o NEWDOS; 


2 — passe para o BASIC e carregue o FORTH da fita usando o 


comando SYSTEM; 
3 — inclua as palavras CMD—DOS e CMD”; 


4 — digite DECIMAL HERE. (isto imprimirá o endereço do 


final do compilador); 


5 — digite o comando CMD” DUMP FORTH/CMD,24001, 
nnnnn,24145”, onde nnnnn é o número devolvido pelo item 


4 da segiiência. 


Isto salvará o compilador em disco. Use esta sequência a 
partir do item 4 sempre que quiser salvar as modificações feitas 
no compilador. Os itens 4 e 5 deverão ser usados sem base 
decimal. Feito isso, para carregar o FORTH em disco bastará 
digitar o seu nome e o sistema operacional se encarregará do 
resto. Um cuidado apenas: nem todos os comandos de disco 
podem ser usados pelo FORTH, uma vez que alguns deles 
ocupam a área de memória onde o FORTH se encontra. 

Para terminar, um último lembrete: se você pretende criar 
palavras em Assembler, atenção para não destruir o conteúdo 
dos registradores BC, IX e IY, pois eles têm funções especí- 


ficas dentro do compilador. 


Mi ie eee o 
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retira endereco do co! 


Nets 


Microcomputadores com crédito direto ou leasing 


Crê 849.850, 
Cr$ 369.850, 
Cr$ 369.000, 
Cr$ 1.498.000, 
Cr$ 1.990.000, 
APPLE || PLUS Cr$ 1.590.000, 


GRÁTIS! 
UM CURSO DE BASIC 
ENTREGA RÁPIDA EM TODO BRASIL 


Aplicativos: controle de estoque: contabilidade: folha de 
pagamento, contas a receber pagar: mala direta; cadastro 
de clientes e desenvolvimento de software para cada neces- 
sidade. : 

Temos toda linha de periféricos e suprimentos para acom- 
panhar o crescimento de sua empresa. 


VISITE-NOS OU-SOLICITE UM REPRESENTANTE 


MICRONEWS COMÉRCIO E SERVIÇOS LTDA, 
R. Assembléia 10 Gr. 3317 - Ed, Centro Cândido Mendes 
Tel.: (021) 252-9420 - CEP 20011/RJ. 


Preços sujeitos a alteração 











SEJA NOSSO COLABORADOR 
E ENTRE PARA À HISTORIA... 
«de MICRO SISTEMAS, é claro! 


Como? É simples: 


e Se você desenvolveu um 
programa interessante, escreva 
um texto datilografado expli- 
cando qual a sua utilização e 
junte exemplos de apficação. 
Atenção: é imprescindível que 
a listagem seja datilografada, 
Se for possível mande tam- 
bém, junto com a listagem 
datilografada, uma fita cassete 
ou disquete com O programa. 


e Se for artigo, use também 
a máquina de escrever e, caso 
haja necessidade de desenhos e 
ilustrações, detalhe-os o má- 
ximo possível. 


e Releia atentamente sua ço- 
laboração para micros ou cal- 
culadora, veja se não falta ne- 
nhuma informação (qual equi- 
pamento, em que configuração 
etc.) e remeta-a, em duas vias, 
para a equipe de MICRO SIS- 
TEMAS analisar. 

e Se aprovado, seu artigo ou 
programa será publicado em 
data a ser confirmada na épo- 
ca. Todo material veiculado é 
remunerado. Caso não seja 
aprovado, você receberá seu 
material de volta, 

o Não se esqueça de mandar 
um breve currículo, seu nome, 
telefone e endereço completo. 


Envio para REDAÇÃO/MICRO SISTEMAS, Rio ou São 
Pauto: Av, Presidente Wilson, 165/grupo 1210, Centro, CEP 
20030, Rio de Janeiro, RJ; Rua Oliveira Dias, 153, Jardim 
Paulista, CEP 01433, São Paulo, SP. 








Escolha a figura, dê as medidas e espere... Com este programa, seu micro 
TRS$-80 ! ou It! calculará a área para você 














e. fe e o e a? 


úlculos de áreas é um programa 
que roda em qualquer micro 
compatível com o TRS-80 mode- 
los [e II com 16 Kb de RAM € 
destina-se a calcular a área de 20 figuras 


** MENU xx 


: Ee PoE ! 
BRL 1 
Tn = q e O . 


| 


Em geometria, 
a área é do micro 





Lt EA 4 
SEP 
Heber Jorge da Silva 





geométricas diferentes, das mais simples 
às mais complexas. 

Logo em seguida à apresentação do 
programa, o usuário receberá na tela um 
menu com as opções correspondentes às 


CALCULOS DE AREAS 


Suadrado 
Retangulo 
Paralelogramo 
Triangulo Retangulo 

" Triangulo Acutanguia 
Triangulo Obtusangulo 
Trapezio 
Trapezoide 
Triangulo Eguilatero 
Pentagono 


O Gt NE UR Ly PS ea 


= 


S E-L E € 


Figura 1 


66 


tí -—- Hexagonoó 

io Heptagono 

is - Octongono 

44 - Circulo 

k Ré) Coroa Circular 

ió - Setor Circular 

17 Seguimento Cirgular 
ig Setor Coroa Circular 
17 - Elipse 

a) - Parabola 


LIONEOSm 









20 figuras a serem calculadas (figura 1). 
Escolhendo uma, o computador plotará 
no vídeo a figura requisitada, solicitan- 
do ao usuário entrar com as medidas ne- 
cessárias aos cálculos. Ao informálas, 
deve-se ter o cuidado de usar sempre a 
mesma unidade de medida, pois o pro- 
grama não faz conversões. 

Observações: as impressoras costu- 
mam imprimir de forma diferente o ca- 
ráter de exponenciação. Os mais utiliza- 
dos são: ô, A,|. e * . Em nossa listagem 
esta operação equivale ao caráter[ . Por- 
tanto, durante a digitação, substitua-o 
adequadamente. 





Formado em Administração de Empresas pela 
UDF, Heber Jorge da Silva trabalha atualmen- 
te na Telebras lia, onde exerce atividades liga- 
das à programação de microcomputadores. 


—— —— o —— q —— — 
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tro % 
=" 


qtIbas 
a: 


SN 


Fr! 
Tuba 


DE ET o 
DILOD.LDM. O Do AD.. 











“area 





N, 


DT PEIRCE DEISE DE ESET RD DCI E E EEE SEE 


LO “xx CALCULO DE AREAS KI 
is "ex POR HEBER JORGE DA SILVA EE 
i6ó "xxx BRASILIA — DF 0s/83 RX* 


20 CRT DOE DEDE DE DE DDD E DE DDR A SE 
eo REM xxx» MENU PRINCIPAL, 

au CLSFPRINTOASA, CHRE(2I) RR 
REAS RX FORD=:I TOLZONE NEXT 
40 CLSSPRINTTAR(27)x% MENU **3PRENTTAR( 1437 


CALCULOS DE A 


nx CALCULOS DE AREAS KH“SPRINTEPR 
INT 
SO PRINTTARCLOD) 4 Quadrado 1 


á — Hexagono”:PRINTTAR(40)42 — Retangulo 

i2 - Heptagono”2PRINTTAB (40/23 — Pa 
tralelogramo 13 - Oetogono” 
60 PRINTTAB(40)74 — Triangulo Retangulo “4 
4 = Circulo”sPRINTTABCLO)25 Triangulo ácuta 


ngulo ii - Coroa Circular“sPRINTTAUCAO)4 
- Triangulo Obtusanguilo 1á - Setor Circular 
70 PRINTTAB(ÍS0)27 -— Frapezio í 
? - Segmento Circular” 


80 PRINTTAB(10)“8 — Trapezoide , 4 
& — Setor Coroa Circular“:PRINTTAB(L0O)”9 — Tp 
iangulo Eguilatero 1? — Elipse”sPRINTTARBC9 
240 - Pentagono 20 — Parabola” 
90 PRINT: INPUT” SEA E 
CILIONnNE CpASIFASLORASSOTHENDO 

i00 BOGUB 4 S60ZONAGOTOL 10,290, 450, 520,640, 630, 
650, 670,700,720,730,740,750,760,770, 40, 830,8 
60, BP, PRO 

iiO GOSUB9SO! BOGUBG GS) 

1 20) ONGGOTOL IH, À PD), 240 

130 CLSZPRINTISA, “CALCULO DA AREA DO QUADRADO 
“1 GOSUB GE) 

140 PORX=1TOAIEFORY=LLTORPBETCX, YIENEXTY,X 
150 PRINTOZOS, “CS INPUTOS — atraves da diagona 
1 e - atraves do lado“ sAZIFACLORAJZTHENASO 
160 ONAGOTOÍL7ZO, 4 81) 

170 GOGUBL GIO GOSUBLADOLV=, SECDER) BOTOLS0O 
iao GOSUBISLOIBOSUBPPO=FVaL C2SBOTOL GOD 

170 CLSZPRINTOSA, “CALCULO DOS LADOS DO QUADRA 
DO“: GOSUBPS0 

200 PRINTOZO4,”"2 INPUTOS — Atraves da area 

é - Atraves da diagonal” sL:IFL<4AORLI2THENDOD 
210 ONLGOTOZ2O, 2a 

eg GOSUBLSLO E GOSUBI3PDLV=SQRCA):BOTOLSOD 
a) GOSUBÍ SS 0: GOSUBL 400 :V=Dx.7074:GOTOLSDO 
=a4l) CLSPRINTAIS4, “CALCULO DA DIAGONAL DO QUAD 
RADO” E BOSUR$5O 
230 PRINTOZOS, E INPUTOS — Átraves da area 

2 - Atraves do lado” sD:IFD<(LORD>2THENZSO 

260 ONDGOTO2Z70, 280 . 
aZh GOSUBLTLD E GOSUBL3PO:V=SAR CA) XÍ.4442G0TOLA 
Do 

28) GOSUBÍ CL0:GOSUBPPO:V=1.444XLEGOTOLA0O 
290 GOSUBLONO:GOSLBY 60 

00 ONQGOTOI LO, 400, 430 

Ji oO CLSIPRINTOL28, “CALCULO DA AREA DO RETANGU 
LO“: GOSUBLOÇDO 





Cálculos de Áreas 





320 PORX=ÍTOGPIFORY=Í7TORPISETAX, YIZNEXTY,X 
330 PRINTOZO4,““2 INPUTCATRAVES DE: 4 -— diagon 
altlado maior 2 - diagonal+lado menor 

3 - lado maior+lado menne” 
SARIFACIÍORASITHENGIO 
340 ONAGOTOGSO, 370, 390 
ea) GOSUBÍ GS: GOSUBIS20:GOSUBL400:GOSUBL 450! T 
FLê=>DTHENGOSUB9Z0:GOTONSO 
60 VEl2KSGRCCDLB)-(L2E2)35BOTOLSDO 
S70 GOSUBS G10:GOSUBL520:GOSUBL 400: GOSUBÍ 440: I 
FLi=>DTHENGOSUB97Z0:G0TOZ7O 
380 Veli GAR CDL -LLIL2))2GOTOLS00 
JP GOSUBIDILO: GOSUBL 520: GOSUBL4 LOL GOSURLALOZU 
=MENSGOTOLSOO 
400 CISIPRINTOLZB, CALCULO DOS LADOS DO RETAN 
GUL O“ 2 GOSUB LDOO) 
410 PRINTOZO4,”“2GOSUBL400: INPUT“Entre com um 
dos Lados“ s0: IFDC=0THENGOSUBPZD:GOTO4LO 
420 V=SORCADEZ) (OLE) EBOTOLSO0 
430 CLOZPRINTOÍL2B, “CALCULO DA DIAGONAL DO RET 
ANGUL 0“ 2 GOSUBLODO 
440 PRINTAZOA, E GOBUBL4LOS GOSUBÍ 420: V=BAR CUM 
Ea) +reNCED)) EBOTOLGUO 
450 GOSUBL 040: GOGUBLOZO 
460) ONGROTOS7, 49) 
470 CLSFPRINTOLZE, “CALCULO DA BREA DO PARALEI. 
OBRAMO 2 GOGUBLOLOTA= B=602Y=172FORD=ÍTOL3:GO 


 SUBLSTOFASArI SBeBHizYaY+i NEXT 


480 PRINTWZ04, “2 TNPUTCEntre com os valores ds] 
os lados“sM,NEV=aMENSGOTOL SON 

490 CLSZPRENTOLZE, “CALCULO DOS LADOS DO PARAL. 
ELOBRAMO 2BOBUBLOS() 

(110) PRINTAZOA, “E GOSUBLIPOLGOSUBLALO: LFACEMTH 
ENGOSUBPZO GOTO 

IO VEAZMEGOTOLASNO 

vet) GOSUBLOZOZPRINTAZO4,”0 QUE QUER CALCULAR 
PCRPRINTIPRINTOL - área W —- Cateto KG) 
- Hipotenusa“:PRINTEINPUTO ESCOLHA... 
“CoQETFACLORGITHENSDO 

SO ONGGOTOSAL, 560, GP) 

340 CLS:PRINTOD, “CALCULO DA AREA DO TRIANGULO 
RETANGUL OZ GOSUBSL 30: YL=5:FORX=15TOSOFFORY=Y 
ATOSOESETEX, YISNEXTIYLRYL + NEXT 

940 PRINTAZOA, PP INPUTCEnNtre com os dois cate 
tos“ sM,NIV=(MEND/22:GOTOLS0O 

WO CLSSPRINTOO, “CALCULO DE CATETOS DO TRIANG 
ULO RETANGULO”? 2: GOSUB 4030 

úZ0 PRIENTOZOS, 2" INPUTCEntre com a hipotenusa 

“HS INPUT“Entre com um dos catetos“:0:IFH(=0T 

HENGOSUB97026G0TOS570 

SEL V=S0RC(CHLZ)-(0L2)):GOTOLS0 

PO CLSEPRINTOO, “CALCULO DA HIPOTENUSA DO TRI 

ANGULO RETANGUL O”: GOSUBLOSO 

900 PRINTOZO4,””2 INPUTZEnNntre com os dois cate 

tos“sM,NEV=SQR((MEDI+(NEZ)) EGOTOL ALL) 

410 PRINTOLZB, “CALCULO DA AREA DO TRIAÊNGULO A 

CUTANGULO“ 2 GOSUBLD4O 

420 GOSUB9BO:V=BxH/22:G0TOLS00 

690 PRINTOLZB, “CALCULO DA AREA DO TREANGULO Q 

BTUSANGUL 0”: BOSUBLOSO 





O PO O A 


ie are eme dote 


cida —— 2 seita ir ra 1 reis ci aire, tea inte ms im ita 





! 
| 
| 
| 





C CENTRALDATA 







Discos Magnéticos: 5 Mb, 16 Mb, 80 Mb etc 





Toe. é fepresentaçios Lida. 









AV PRESIDENTE VARGAS Nº 482 GR 207 TEL 1021 253-1120 E 263-5876 
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SUPRIMENTO É COISA SÉRIA 


* Matenha o seu computador bem alimentado adquirindo produtos de qualidade consagrada. 


DISKETTES: 5 1/4 e 8” - marca VERBATIM 
- ETIQUETAS PIMACO — PIMATAB 


* Fita Magnética: 600, 1200 e 2400 Pés 

e Fita CARBOFITAS p/Impressoras: Globus M 200 — 8 300/600 
* Fita piimpressoras: Elebra, Elgin, Epson, Digilab, Diablo, etc. 
e Cartucho Cobra 400 

* Pastas e Formulários Contínuos. 
































EM GEOMETRIA, A ÁREA É DO MICRO 


620: GOGUBPBOS VaBbxH/22BOTOLADO 
650 PRINTOMLZA, CALCULO DA AREA DO TRAPEZIÕ/:6 
OSUB 4 0&() 
s40) PRINTOZ04,7“ E GOSUB 4430: GOSUB IL ASO:GOSUBLAA 
DaV=He (Lar 1)/22:60TOLG00 
470 PRINTOLZO, CALCULO DA AREA DO TRAPEZOIDE” 
“GOSUBLDZO 
680 PRINTOZ04,““; 2 INPUTYEntre com a altura me 
nor Ena INPUT“Entre com a altura maior sa 
re com a sé (8, BE INPUTZEntre € com a base « 
0)4;C 
690) V=0(Hi+HR DXLABRHL+CAHO )/22GOSUBAS 
LSPOL GOGUBLSAD: PRINTAS4O, 
1960: GOGUBLS70:GOTOAOQ 
700 PRINTISGA, “CALCULO DA AREA DO TRIANGULO EQ 
UILATERO 2 GOSUB LOGO 
*19) GOSUBPODEV=.433xCI.lo)e GOTOLAD0 
720 PRINTOS4, “CALCULO DA AREA DO PENTAGONO”s 
OSUBLALONEGOS JUR99OS Vas 7ROKCILLASEBOTOLSDO 
730 PRINTOSA,“CALCULO DA AREA DO HEXABONO” 260 
BUB Li LO GOSUBP9OEV=P.SPBXCILLSIEGOTOLADO 
740 PRINTÕO, “CALCULO DA AREA DO HEP TAGONO”? = GQ 
SUBiLiL20s PRINTO/O4, “CL GOSUBPPOLV=3, GB4RCLCO) EG 
OTOL SD 
750 PRINTOO, “CALCULO Da AREA DO OCTOGONO” :GOS 
UBÍ LFOGOSUBPPO TIVE, BLBXCLLZ)I2GOTOL SD 
740 PRINTOO, CALCULO DA ARES DO CIRCULO? :GOSU 
Bíiiso: FORX=32 TOG/STEP2SRESET(OX,17)2NEXTEPOKEP 
+390, 82:PRINTOZOS, OS SUBÍGSOS VU=3 i4LBPRÍRLS 
ja BOTOL 60 
770 PRINTOU, CALCULO DA AREA DA COROA CIRCULA 
Re: GOGBUBL AS 03 GOBLUBL LBDEPOKEP+403, BRIPOKEP+397 
,114 
780 PRINTOZ04,”" 2 GOSUBI 440: GOGBUB 1476 
790 LERÍI=RS THENGOSUB97Z02GOTOZBO 
too V=3, L41BPACARALOI-CRICLE))EGOTOLADD 
Bi0Q PRINTOS2D, “CALCULO DA AREA DO SETOR CIRCU 
LAR“:GOSUBILD4LOS POKEP raio, 4444 RESET(30, LII5RES 
ETC3O,21)2X= 29 1FORY=19TOLGS RESET(X, Y):X=X-12N 
EXT X=29s PORYT=HiTOLBSTEP 4: RESET(X, WD: XaxX=43N 
EXT 
Ria RESET(RS, SL) FPRINTOSI3I s“alPa”s: GOSUBLABO: 
SUBI SOS Us DOB7274ZAÇRID)E GOTO LAN 
EE PRINTAZÍÃB, CALCULO DA AREA DO SEGMENTO Ci 
RCULAR“:GOSUBÁL GOSPOREP+HSES. 45 a POKEP+328,762P 
OKEP+3B6,705POKEP+450, 65: POKEP+348, 67: FORX= 2ó 
TO4S SSTEP4ZSETCX, 6): SETCX, aB)sNEXT: FORX=9TOZIS 
TER? RESETC(X, 17) :NEXTE POKEP+328, 104 
so FORY=6TOZASTEPR RSET(AR,NY)E NEXTISET(?, 40)u 
SET(Z,25):SET(ÇÃO,7): SET(ÍO. ;RB)J:GETCLA, AJSSET( 
Á4,3ÍD:RESET(AES, 8) RESETC(27, iDIÍsRES ET (DO! ádis 
RESET(34 44) RESET(GS, 16) POKEP+208, ii4 
850 GOSUB 44802 GOSUBi 650: INPUT“ Entre. com o val 
or do lado (Ds CEBOSUBLABDEV=. IRTCRACAODLZ ASR 
ED CHCR-H))EGOTOLSDO 
B40 PRINTALB, “CALCULO DA AREA DO SETOR DE COR 
OA CIRCULA “3POKEP+275, i1L4:POKEP+469, BPI GOSUB 
S2BOrPRINTADAS, “alfa”s 
870 GOSUBÍ AB): : GOSUB1460:GOSUB 4470: IFRÍS=R2THE 
NGOSUBP70:GOTOB7D 
BO) V=Zx3,L4L5P/360%X((RECSI=(R$LO))S GOTOLSDO 
B90 PRINTOLS “CALCULO DA ÁREA DA ELIPSE”: GOSUB 
340 
900 GOSUB 4490: GOSUBLSON: LFX4=YTHENGOSUB9PTOS 80 
TOG0O 
PIO VU=a.i4LBPEXXYEGOTOL GD 
920 PRINTOD, “CALCULO DA AREA DA PARABOLA”EGOS 
UBL JD: GOSUB 4370 
PIO GOSUBL ADO: “GOGUBASOO: LEX<aYTHENGOSUBPZ0:60 
TOS30 
PAO U=XRYED/32BOTOL SOU) 
945 REM wxtxx DESENHA QUADRADO 
930 FORX=ZOTOSMANGET(X, AD)SSETAX, BOVENEXTEFORY= 
ÁS TOBDISETCD, YO): SET( 44, Yo:NEXT: !POKEP+Á GE, PAP 
CKEP+40B. 761 Y= AMAR ORY= A OTOSPE SET(X.T)1X= os RPA: | 


- 


34 07:G05SUB 
STRINEE CIO, FÃ) E GOSUB 


ANEXTSPOKEP+IGA4, GBERETURN 

760 PRINTAIZOS,”O QUE QUER CALCULAR PPsPRINTEP 

RINTCSA - Area 2 - Lado 3 —- Diagonal“s:PR 
ENTIINPUTO ESCOLHA...” Q7IFALLOQRASITH 

ENPADELSERETURN 

P70 GOBLUBLSLODIPRINTOZIS »CIMPOSSIVEL 111 

R REINFORMAR,.“:FORD= iTOT200: NEXT:RETURN 

?80 PRINTOZ04,/"2ENPUT”Entre com o valor da b 

age CB)“ Bs INPUTEntre com o valor da altura 
Ch)" sHERETURN 

PPD PRINTOZ04,7”: INPUTCEntre com o valor do 1 

ado” sLERETURN , 

994 REM musa DESENHA RETANGULO 

1000 FORX=0TOSUIBETAX, LO)EBETEX + S0)INEXT2FORY 
=1ATOJOESETO | DISETCSO, Ya NEXT: POKEP+270,76: 

POKEP+4B4, LDB POKEP+463, 6B2:X=D2:FORY= 177029: SE. 

TOK,Y9I2X= X4 4a ZENEXTE RETURN 

4005 REM xxxxx DESENHA PARALELOGR AMO 

ÁDiO X=0O:FORPELSTOGNSSET CX » PIBSETCX+SO, Y)1X=X 

+LENEXTEFORX=0TOSSS SET(X, 16) SETEXHA4, 30): NEX 

TEROKEP+274 ,V6FPOKEP+AGA. + 7 62RETURN 

1020 PRINTOZ04 +“ O QUE QUER CALCULAR 222PRENT: 

PRINTS — Area é - Lados”: INPUT” 

ESCOLHA. =.“ 65 IFOLLORGS2THENLD2HELSERETU 


FAVO 


RN 

102S REM xxx DESENHA TRIANGULO RETANGULO 
tOSD Xzi52FORY=STOGOLSETAX, Y)X=ZXHÍ ENEXTIFORY 

ER ie Y)SNEXTEFORX=ZLSTOSOESET(X,30)2N 

EXTIPOKEP IA 678 POKEP+333,723:POKEP+748,672RE 

TURN 

LOS REM sxxnxx DESENHA TRIANGULO ACUTANGULO 

1040 A=2OsBaposFORY=12TO2P:GOSUBLS/02A=A-4:Ba 

B+3:NEXTIPOKEP+457, 4042POKEP +á58 + 66%FORY=LLTO 
BPSTEPRISET(ZL, AD! RESET(24 pI NEXT: RETURN 

1045 REM uexxm DESENHA TRIANGULO OB TUSANGUL O 

10S0 A=58:B=08:FORY=12T02P:GOSUBLS/0:A=A-BIB= 

E SINEXTEPOKEP+414, LD42POKEP+6S 4, 663FORY=LATO 

STEPREISETOSB,Y): NEXT: FORX= ALTOGÍSTEP4S SET(X 

aos NEXT RETURN 

1055 REM xxx4% DESENHA TRAPEZIO 

1060 AsiBB=G13FORY=20TOSPEGOSUBLG70:AzA-4:B= 

B+22:NEXTIFORY=L9TOBOSTEP2:RESETOS 30, Y)2NEXT:PO 

KEP+336, 672POKEP+á54 +66: POKEP+ãIS, 104: RETURN 

i0ás REM Mem eae E DESENHA TRAPEZOIDE 

1070 A=S0:B=40: PORY=LPTORA 5 GOSUBL &7ZDz2A=A-S OB 

“BrisNEXTIADD0B=632FORY=22TO2PEGOSUBLSZD:AzA 

-58B=B+52:NEXTEPOKEP+647, 467 POKEP+S 23, LU4POKE 

P+66D, EGIPOKEP+5414,72 :POKEP+673 , 67 

1080 FORY= SA TOGOSTEPDS REGET(2O, Ya NEXTEFORY=á 

PTOSUSTEPISRESETC64,Y)EMEXTE SET(Z 0, 34 )ESETÇAL 
» Si) SRETURN 

1085 REM xxxxx DESENHA TRIANGULO EQUILATERO 

190 A=36B=362FORY=BTOZOLGOSUBLGZ0:A=A-1 328 

=B+i.GINEXTISET(IZ, P)POKEP+721 +» 6ERETURN 

109% REM soca DE SENHA PENTAGONO 

1100 A=362B=362FORY=BTOLSIGOSUBLS70:A=A-2.67B 

=B+2 .6:NEXTIA=1 4202552 FORY=17TO27GOSUBLGZOA 

SA Ó2IB=B-. GO ENEXTIPOKEP+6SB, 762 GET(54,4B)ER 

E TURN 

AiDS REM suxzs DESENHA HEXAGONO 

iii A=20:B=49:FORY=SBTOLB:GOBUBLS70:A=A-1.1B3 

B=B+1. 15:NEXTERESET(AD, E) FAsQ0LB=4P:FORY=LPTO 

IPSTEP-12GOSUBLGZ0:A=A-S.15:B=B+4, 15:NEXTERES 

ET(49,29) POKEP+456,762RETURN 

iiiiú REM xxxx% DESENHA HEPTAGONO 

1i20 A=B42B=242FORY=STOL IS EGOSURIAZNLAZA-4:B=B 

+ARNEXTEIA=LOZB=5B:FORY=I2TOZLLGOSUBLS7/0:A=A-, 

wiBaBe. GENEXTIA=S:B=632FORY=22T032:BOSUBLG70: 

AzAtri G2:B=B-4.G23NEXT: POKEP+720,762RETURN 

tias REM taxas DESENHA OC TOGONO 

1130 A=34:B=34:FORY=5TOLOSGOSUBL6/0:4=4-4,23B 

=B+4.2:NEXT!SETC33, DB) LA=IBIBESSIFORV=ÍLTOLBG 

OSUBLG/DIA=A-f Bo Bis NEXTrA=04:B= a FORY=32TO 

S7STEP-SEGOGUBLAZO AnA-A DB=B+a, DENEXT 

1Ã40 BETC3D BETA PEBEGBLFORYa SA EPE 

OSUBI SO ADÁ=L Beni s ENEXTEPOKEP+S50, 767 RETURN 
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| 
4145 REM dote DESENHA CIRCULO 
á 250) Rec4 BIB PORVEGTOZ EGOSUBLAZOLALA-As Ban + 


MENEXTIARS GE B=4B7FORYZBTOLL2GOSUBLGZOANA-2EB 


=B+22NEXTIFORX=7TOGSEGETX, 2) NEXTEFORYS4ITO 
LA: GOSUBL1Z02NEXTEFORY=15TOLPLFORXEGTOS7ISETC 
X, Y)2NEXTINEXT 

1160 AZLALBUIBEFORY=29TOL7STEP-L :GOSUBLG7O:A= 


ATAZB=BAASNEXTE Azi A B24BFORY=24TOLISTEP-L GO 
SUBL6702A3A-2:B=8+22NEXTEFORX=/TOSSEGET(X, 22) 


FNEXTEFORY=21TOZOSTEP-4:GOSUBLLZO:NEXTSRETUBN 
41.70 PORX=6TOSSESETEX, Y)ZNEXTERETURN 

1476 REM xxxxx DESENHA COROA CIRCULAR 

180 Beco B=LPORY=S0TOLZIGOSUBÍSBOB=A-SG:Ba 
B+IENEXTEFORXGLOTOGGIRESETAX, LB) ENEXTEARÁZ E Ba 
AMEFORY=L4TOL&GOSUBLGBOLARA-S Bars SNEXTIFOR 
X=1GTOAGIRESET(X, 17)3 NEXT 

1190 Rec6 tB=3GPORY=EOATODESTEP = E GOSUBLGBO: AS 
ATSEBRBAIENEXTEFORX=LBTOAIIRESETEX, 21) ENEXTEA 
S1Z2B=442FORY=20TOLBSTEP-L:GOSUBLADO: Az E Ba 
B+rAsNEXT 

1200 PORX=32TOAGSTEPRISETCX, 47) ENEXTIFORXZAZT 
OU/STEPRIREGETEX, 47) NEXTIFORYELATOLZSTEP-DES 
ETC30, YIENEXTERETURN 

Ar REM suxxa DESENHA SETOR CIRCULAR 

Áário PORXUASTOAPEGETAX, SIIGET(X, 29 ENEXTIFORX 
=eMTORPEGETAX, 6) XSETAX, 28) INEXTEFORXSALTOMGES 
CT(X, 6) GETOX, 28) ENEXTEFORX=ZAGTOSL ESET(X,7)EN 
EXTEX=LPRFORYEDTOSZEGETUX, PD EXUXÍENEXTEX=L9E 
PORY=SIATOL7STEP=4 SETCX, P)IX=XAL NEXT 

feel FORY=5TOL7S8TEPRIGET(37,Y) NEXT 

ill) FeliBaLGFORTE/VOLAGOSUBLSZOTA=A-DEB=B 
+ASNEXTIA=S2I B=28:FORYER7TOR3STEP--4 1 GOSUR 467) 
FASA-CEB=B+LENEXTEFORX=S2TOGLEGETCX, LR) SSETEX 
182) ENEXTIFORX=LLTOGRESET AX, DL) PBET(X, 43) ENEX 
TEPORX=LITOZIIGETAX, 14) 2SETCX, PO) NEXT 

1240 A=i0:B=942FORY=15TOL7:GOSUBLS70ZB=B+L2NE 
XTEA=SULB=I4LFORYELGTOLBSTEP-S E GOSUBLG70B=B4 
ÁENEXTERETURN 

á24% REM pexex DESENHA SEGMENTO CIRÇULAR 

tl A=ciiB=22sFORY=/TOL4 E GOSUBLZ7DENEXTIASDA 
FB=22IFORY=27TO2IGTEP-Í :GOSUBILZ7DINEXTEFORX=4 
STOBRRGETAX, LO ESETÇX, 22) SNEXTEFORX=S LTODDISE 
TEX,LINEBETEX, SAVEGETEX, PO) ESETAX, PL) ENEXTEFO 
RY=14TOLDEFORX=10TORDISETAX, YE NEXTENEXT 

1260 X=1BEFORY=LTOLZIGSETAX, Y)2X=XALENEXTEX=4E 
FPORV=SIITOLBSTEP-L2GETAX, Ya X=X 44 ENEXTERETURN 
1270 GOGUBL 70: A=A-22 RETURN 

ic? REM xxxmes DESENHA SETOR DE COROA CIRCULA 
R 

20) PORX=29TOMZISET(X, S)EGET(X,RP9ENEXTEFORX 
SESTOLPESETAX, EB) ISETAX, 6) ENEXTEFORXS4PTOAGEE 
ET(X, QB)SNEXTEFORXSASTOSA ESET(X, 27) ENEXTEFORX 
SER POAPEBET(X, BIENEXTIFORX=29TOIZEGETAX, 9) NE 
KTEPORX=4Í TOABEGET AX, 9IENEXT 

RS Acd O) X=iPEFORYEOTOLZEGETAX, YILXLXHI ENEXTEX ESSO 
FPORT=3ATOLZSTEP-LEGET(X, V)2X=XHS ENEXTIA SPL ER 
TEGEPORV=7T044200SUBLGZ0ARA-p BB INEXTIASO 
AEBzaGsPORY=27TORISTEP-L 

Ag0o GOSUBL 6/0 AnA-PuB=6+1NEXTEFORXELSTOZL ES 
ETCX, 12) GETOX, BR) ENEXTIFORX=SSTOGBIGETEX, DÃ) 
*SETEX, LBDENEXT 

1310 FORX=ÍÍTORBEGETAX, SAD EGETCX, DO) ENEXTE ASS 
D:B=342FORY=L9TOLBSTER-S 3 GOGUBL 670: B=B+1 NEXT 
FARÍDEB=I4AZFORY=LSTOS 7: BOSUBL 6702 B=B+1 2 NEXTEA 
SRZEBerosFORVSLLTOLBIGOSUBLGBOLAZA-DEBaB+4s NE 
XT 

“geo Ave/2B=2PPORYEDATODLSTEP-L GOSUBI SBO: Au 
AreEBeB+iSNEXTE ADD Bag FORY=P0TOLBSTEP=4 EGO 
SUBLSBOA=A-LEB=B+4 2: NEXT 

isso A=pesB=d2sFORY=IATOLGGOSUBIGBOLAZA-Á Ba 
B+LENEXTEFORXSDOTOBGIREGET CX, 47) ENEXTEFORY ET 
OAZSTEPRIGETCIG, VI ENEXTIXEGGEFORYELZTOPBSTEPO 
EORTEX, Y)ZX=XALINEXTERETURN 

ia REM xs DESENHA ELIPSE 

1.340) FORXEIATONGEGET CX, SIEGETEX, SB) ENEXTEFORX 
EEGTOGAGETAX, DDAGETAL, DZ) ENEXTEFORX=POTOZOES 


me 















EVOX,B)ESETEX, 25) ENEXTIFORX=L6TOZANGET(X,9)ES 
EDCX, 25) ENEXTEFORX=L2TOZ72GETOX, LO) ESETCX,R4) 
NEXT 

350 AuiizB=a/2:FORY=ALTOLDEGOSUBLS/OIA=A-DIB= 
B+2INEXTIA=DI 1 :B=792FORY=Z29TODESTEP-4S E GOSUB LG? 
DEA=A-22:B=5+22NEXT:A=0:B=B2:FORY=Í3TOLS:GOSUB 
167/02A=A-i 2B=B+1 2NEXTEA=BIB=B2:FORY=24TOLBSTE 
P-LIGOSUBLSZ0FADA-4 Bebes: NEXT 

13460 PORX=GTOVOSTEP2SSET(X, 47): NEXTEFORY=7TOR 
PSTEPRIRESETC4S, Y)INEXTISET(4E, 30): FORY=20TO3 
OSTEPARSET(S, Y)2NEXTEPOKEP 4652, BBLFORX=472TODS 
STEPRIGET(X, 6): NEXTEPOKEP+29S, BOZRETURN 

1365 REM wxxtx DESENHA PARABOLA 

13720 SET(S, 20) FFORYESZTOINSTEPOSSET(AS, Y)ENEX 
TEFORX=34TO4AGIGETAX, 6)ENEXTIFORX=0GTO4ASESET(X 
17) 2NEXTEFORX=2NTOAGESETAX,B)ENEXTEFORX=ZLSTOS 
WEGETEX, DI ENEXTIALEB=ABFORYELOTOLDIGOSUB LA 
PORAzAmDaNEXT 

i380 AxBEb=4GPORY=]ITOLSFGOSUBLGTULA=A-LINEX 
TEPORX=5TOSSEGET(X, 17): NEXTERETURNM 

L3V0 INPUTCEntre com a area Ps AIRETURNM 

1400 INPUTCEntre com a diagonal (D) “sDERETUR 
N 

LSiO INPUTCEntre com um dos lados “s;MIRETURN 
1420 INPUTCEntre com o outro lado “sNERETURN 
1430 INPUTCEntre com a altura ho “sHERETURN 
1440 INPUTCEntre com o Lado menor “sLÁcRETURN 
1400 INPUT“Entre com à lado maior “sLezRETURN 
1460 INPUTCEntre com yo valor do raio menor “s 
RLZRETURN 

1470 INPUT“Entre com o valor do raio maior “s 
R$ 2RETURN 

1480 PRINTOZ04,““2 INPUT“ENtre com q valor do 
anguto alfa “sZ2RETURN 

1490 PRINTO/04,7“zINPUTCEntre com o valor de 

X “4XIRETURN 

1500 INPUTCEntre com o valor de Y “sYERETURN 
£3to PRINTOZOAM, STRINGE( 40, 32)2RETURN 

120) PRINTOZSB, STRINGE(40, 32) RETURN 

1330 PRINTOBIL, STRINGS (40, 32)2 RETURN 

1540 PRINTOAGPS, STRINGE(SO, 32) RETURN 

t350 PRINTODSO, STRINGS (44,32); RETURN 

1380 FORP=Í6084TOLGL04G2POKEP,4762:NEXTIFORP=SG 
192 T0L6RI4LPOKEP, 1042 NEXTIFORI=ÍTOGIPRINTOZ4B 
50 0 resultado e” “sp 
ORD=4 TOGO ENFXTIPRINTAZES USINGORHA, HE, BA HM 
HeHARH CU: 2FORD=i TO4DDENEXTENEXTERETURN 

1470 PRINTOPGO, “Tecla: 44 RETURN »» para nov 
o caleulio “s 

ARSTo Ta AB=INKEYGS LFAS)CHRE (43) THENLSSOELSERETU 
RN 

13590) FORD=1 TO3:GETEX+D, Y)NEXTEX=X-2ERETURN 
1500 GOSUBLSL02GOBUBLS5207GOSUBLS20:GOSUBLSS 
GOSUBÍ GS0EGOSUBLSZO:GOTOSO 

1610 INPUTCEntre com o vator do lado (a) “sy 
RETURN 

Lo20 INPUTCEntre com o valor do lado (tb) “s 
RETURN 

“630 INPUTCEntre com o valor do lado (e) “50 
RETURN 

1640 INPUT"Entre com o valor da altura (Ch) “s 
HERETURN 

1650 INPUT“Entre com o valo” do raio (Cr) “sRs 
RETURN 

1660 CLGIPRINTADSO,LINFORME VALORES NA MESMA 
UNIDADE DE MEDIDA)”; :P=15360:RETURN 

1470 FORX=ATORESETAX, Y) ENEXTERETURN 

t óBo) FORX=ATOBIRESET(X, Y)ENEXTERETURN 

1690 PRINTIZ04,”0 VALOR DA AREA DA BASE E '“sS 
EGOSUBLAADERETURN 

i700 PRINTOZ04,“”: GOSUBÍ 650: GOSUBI 440:RETURN 
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enfrentando um inimigo esperto, um micro da família Sinclair. =. 
Portanto, comandante, fogo neles! = 
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ganha novo cenário: à tela dos pelo humano, O micro mostra O formato, . RECONHECIMENTO (S/N). Se O joga q 


tradicional jogo Batalha Naval navio). Para cada navio a ser montado ros, o micro faz a se uinte pergunta: 
micros da família Sinclair. Às O qual, no entanto, não é checado pelo dor responde N, o micro lança seus tor- 


regras, os navios, Seus forma- programa. Portanto, podem ser criados  pedos (se der água, o micro também 


com os dois campos de batalha, sendo tendo direito a três tiros. Ao término contagem regressiva de pontos, pois a 
que o campo do lado direito pertence ao destes, o micro diz se foi acertada algu- somatória de todas as partes de cada co- 
micro. ma parte de navio ou se foi apenas água. mandante equivale a 38 partes. O co- 
O programa entra em FAST para Para cada parte acertada, há uma inver- mandante que conseguir chegar até ze- 
montar, randomicamente, OS navios do são de tela simulando uma explosão e, TO ganha a Batalha Naval. 

micro. Ao final, ele monitora à entrada para cada tiro na água, segue-se um bip. 

de dados para montar os navios dojoga- Agora, Se O tiro cair em alguma parte já 

dor (humano). Isto se faz com a digita- acertada, o micro emite três bips e esta DETALHES TÉCNICOS 

ção de “linhas e colunas” e o programa parte permanece inversa (não conta 
pede a confirmação para cada coordena- pontos). A listagem em Assembler deve ser di- 
da digitada (ao todo, são 38 partes de Logo que o humano termina seus ti-  gitada com O auxílio do monitor publi- 


tos e quantidades são os mesmos (4 sub- novos formatos. emite um bip e preenche esta coordena- “8 
marinos, 4 destroyers, 5 hidroaviões, 2 da com um asterisco, se atingir alguma 4 4 
cruzadores e 1 couraçado) e você será O parte, esta ficará piscando, tomando-se E: 
humano que jogará contra O micro. A BATALHA inversa). Caso O jogador responda 5, 4 
Logo depois de rodado, o programa passa pela tela a confirmação de quantas É q 
pede o nível de jogo: 1 (fácil), 2 (médio) O humano inicia o jogo — depois de partes se compõe cada navio. Ed 
e 3 (difícil). Em seguida, desenha atela ter desenhado todos os seus navios — A esta altura, inicia-se também uma | : 
4 
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“Bloco Assembler 





= 42 16530 = 


cado em MICRO SISTEMAS número 23. 
Ela é composta de duas rotinas (é acon- 
selhável, portanto, reservar 31 bytes na 
primeira linha de REM): 

e de 16514 a 16541 — rotina de inver- 
são da tela; 


e de 16542 a 16544 — rotina de bip 
(esta rotina é para o caso do microcom- 
putador CP-200, no qual o programa foi 
desenvolvido; nos demais equipamentos 
que não têm bip, esta rotina deve ser 
omitida, e as linhas que contiverem a 
instrução RAND USR 16542 não devem 
ser digitadas). 

Como sabemos, uma das técnicas uti- 
lizadas para jogar Batalha Naval é dar ti- 
tos em volta da parte atingida de um na- 
vio para tentar afundá-lo todo. No entan- 
to, esta rotina não pôde ser implantada 
neste programa, pois ela demandaria mais 
alguns Kbs de memória, coisa de que 
não se dispunha. Para contornar a situa- 
ção e tornar a Batalha mais competiti- 
va, optei pelos níveis de dificuldade 
mencionados no início do artigo. 

Observação final: para obter o cará- 
ter gráfico situado nas linhas 5340, 
3520, 5690, 5750 e 5791, digite GRA- 
PHICS SHIFT A. Outra coisa: caso o 
humano queira desistir, basta digitar 
dois asteriscos ( **) na sua vez de atirar. 


mí... 
Waldir. Ferreira de Arruda estudou na FASP 
(Faculdade de Sisternas de São Paulo). Atual- 
mente trabalha na empresa incremento in- 
formática S/A., onde ocupa O cargo de Ana- 
tista de Produção. Possui um CP-200, utili- 
zando-o como hobby. 
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10 REM (31 CARACTERES QUAISQUE 
R) 

15 RAND 

16 REM 

20 DIM M$ (15,15) 

30 DIM P$(15,15) 

36 GOSUB VAL "8500" 


40 PRINT AT 7,2; "Cook dah Tal TO 
50 PRINT AT 8,2; TESTIENINEIO 
) 
60 PRINT AT 9,2; EILK NIE 
" 
70 PRINT AT 10,2; "MRTINEITINT 
” 
80 PRINT AT 13,6;'"GTELArEOS 
= 
90 PRIN: AT 14,6; "(MON EIDHOR 
COR" 
100 PRINT AT 15,65; "CMNDNIDEIS 
COCA" 
110 PRINT AT 16,6;"NTFINTEITEO 
CIR PT Tomas 


120 FOR N-=1 TO 16 

130 LET X=USR 16514 

131 FOR A=1 TO 8 

132 NEXT A 

140 NEXT N 

150 CLS 

160 PRINT AT 7,5; "REINO" ;ar 7, 
[vi CHol 




















21:" 

200 FOR N=1 TO 15 

210 LET 2=165+N - 

220 PRINT AT D,N;CHR$ Z;AT 16,N 
;CHR$ Z: 

230 NEXT N 

240 FOR N=17 TO 31 

250 LET Z=149+4N 

260 PRINT AT O,N;CHR$ Z:AT 16,N 
;CHR$ 2; 

270 NEXT N 

280 FOR N=1 TO 15 

290 LET Z=165+N 

300 PRINT AT N,0;CHR$ S;AT N,16 
:CHR$ Z: 

310 NEXT N 

320 PRINT AT 0,0;"M";AT 16,0;"E 
“AT 0,16; "M';AT 16,16;"E" 

330 FOR X=1 TO 15 

340 FOR N=1 To 15 

350 PRINT AT RN", 

360 NEXT N 

370 FOR N=17 o 31 

380 PRINT AT X,N;"."; 

390 NEXT N 

400 NEXT x 

405 PRINT AT 18,1; “AGUARDE. . MI 
CRO MONTANDO NAVIOS " 

406 FOR N=1 TO 50 

407 NEXT N 

410 FAST 

420 FOR H=1 TO 5 

430 LET L=INT (RND*13)+1 

440 LET C=INT (RND*13)+1 

450 LET T=INT (RND*2)+1 

460 IF T=1 THEN LET A=3 

470 IF T=1 THEN LET B=2 

480 IF T=2 THEN LET A=2 

490 IF T=2 THEN LET B=3 

500 IF C=13 AND L<=l? THEN LET 
A=3 

510 IF L=13 AND C<=12 THEN LET 
B=3 

220 IF L=13 THEN LET A=2 

530 IF C=13 THEN LET B=2 

540 IP L=13 AND C=13 THEN GOTO 
0430 

541 FOR Z=0 TO A 

542 FOR N=0 TO B 

543 IF M$ (L+Z, CAN) <>" " THEN GO 
TO 0430 

544 NEXT N 

545 NEXT 4 

546 FOR Z=0 TO A 

547 FOR N=0 TO B 

548 LET M$ (L+2,C&Nj="*" 

549 NEXT N 

550 NEXT 2 





























































Batalha Naval 


560 IF L=13 OR €C=13 THEN GOTO V 


AL “ 
370 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1100 

111.0 

1120 

1130 

1140 

1150 

1160 

1170 

VAL 

1180 

VAL 

1190 


820" 

IF T=1 TREN GOTO VAL "700" 
GOSUB VAL "1070" 

IF T=] THEN GOTO VAL "650" 
LET M$(L,C)="m" 

LET M$(L,C+2)="" 

LET M$ (E+1,C+1)="EP 

NEXT H 

Goro VAL "1100" 

LET M$(L,C+1) =" 

LET M$ (L*1,C)="E” 

LET M$ (L+1,C+2) =" 

NEXT H 

GOTO VAL "1100" 

GOSUB VAL “1070 

IF T=1 PHEN GOPO VAL "770" 
LET M$ (LL O)="B" 

LET M$(L+1,C+1)="Er 

LET M$(L+2,0)="H 

NEXT H 

GOTO VAL "1100" 

LET M$(L,C+1)="E 

LET M$ (L+1,C)="E" 

LET M$ (L+2,C+1)="B" 

NEXT H 

GOTO VAL "1100" 

IF C=13 THEN GOTO VAL "950" 
GOSUB VAL "1070" 

IF T=1 THEN GOTO VAL "900" 
LET M$(L+1,C+29)="E" 

LET M$ (L+2,C+1)="EP 

LET M$ (L+2,C+3)="EI 

NEXT EH 

GOTO VAL "1100" 

LET M$(L+1,C+1)="5" 

LET M$(L+L,C+3) =" 

LET M$ (L+2,C+2) ="t]" 

NEXT H 

GOTO VAL "1100" 

GOSUB VAL "1070" 

IF T=1 THEN GOTO VAL "1020" 
LET M$(L+1,C+H2)="Er 

LET M$ (L+2,C+1) =" 

LET M$(L+3,C+2) ="EF 

NEXT H 

GOFO VAL "1100" 

LET M$ (L+1,C+1)='TF' 

LET M$(L+2,C+2) =" 

LET M$ (L+3,C+1) ="EF 

NEXT H 

GOTO VAL "1]50" 

LET T=INT (RND*2)+1 
RETURN 

LET L=INT (RND*14)41 

LET C=INT (RND*14)+1 

LET T=INF (RND*2)+1 

IF T=1 THEN LET A=l 

IF T=1 THEN LET B=5 

IF T=2 THEN LET A=S 

IF T=2 THEN LET B=1 

IF L=14 AND C>10 THEN GOTO 
"1100" 

IF C=14 AND L>10 THEN GOTO 
"11200" 

IF L>10 AND T=2 THEN GOTO V 


AL "1100" 


1200 


IF C>10 AND T=1 THEN GOTO V 


AL "1100" 


1210 
1220 
1230 


FOR Z=0 TO A 
FOR N=0 TO B 
EF M$(L+Z,C+HN) <>" " THEN GO 


TO VAL "1100" 


1240 
1250 
1260 


NEXT N 
NEXT Z 
FOR Z=0 TO A 


1270 FOR N=0 TO B 

1280 LET M$(L+Z,C+N)="*" 

1290 NEXT N 

1300 NEXT 3 

1310 IF L=14 OR C=14 THEN GOTO V 
AL "1410" 

1320 IF T=1 THEN GOTO VAL "1370" 


1330 
1340 
1350 
1360 
1370 


FOR N=0 TO 4 
LET M$ (L+N,C) =" 
NEXT N 

GOTO VAL “1500 
FOR N=0 TO d 
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1380 LET M$(L,C+N) =" 

1390 NEXT N 

1400 Goro VAL "1500" 

14109 IF C=14 THEN GOTO VAL "1460 


1420 FOR N=0 To 4 

1430 LET M$ (L+),C+N)="T3" 

1440 NEXT N 

1450 Goro VAL "1500" 

1460 FOR Ni TO 5 

1470 LET M$(L+N,C+1) ="T9" 

1480 NEXT N 

1500 FOR R=1 TO 2 

1505 LET PI=PEEK 16591 

1520 LET L=ENT (RND*14)+1 

1520 LET C=INT (RND*14)+1 

1530 LET T=INT (RND*2)+1 

1540 EF T=1 THEN LET Asl 

1550 IF T=1 THEN LET B=4 

1560 IF T=2 THEN LET A=4 

1570 IP T=2 THEN LET B=1 

1580 IF L=14 AND C>11 THEN GOTO 
VAL "1510" 

1590 IF C=14 AND L>11 THEN GOTO. 
VAL "1510" é 
1600 IF L>11 AND T=2 THEN GOTO |V 
AL "1510" A 


1610 IF C>11 AND T=1 THEN GOTO V. 


AL “1510” 

1620 FOR Z=0 TO A 

1630 FOR N=0 TO B 

1640 IF M$(L+Z2,C+N) <>" “ THEN GO 
TO VAL "1510" 

1650 NEXT N 

1660 NEXT Z 

1670 FOR Z=0 TO A 

1680 FOR N=0 TO B 

1690 LET M$ (L+Z,CAN)="*" 

1700 NEXE N 

1710 NEXT Z 

1720 IF L=14 OR €C=14 TEEN GOTO V 
AL "LB40" 

1730 IF T=1 THEN GOTO VAL "1790" 
1740 FOR N=0 TO 3 

1750 LET M$(L+N,C) =" 

1760 NEXT N 

17%0 NEXT R 

1780 GOTO VAL "1950" 

1790 FOR N=0 To 3 

1800 LET M$ (L,C+N)="H" 

1810 NEXT N 

1820 NEXT R 

1830 GOTO vAL "1950" 

1840 IF C=14 THEN GOTO VAL, "1900 
“ 


1859 FOR N=0 To 3 

1860 LET M$(L+1,C+N)="H' 

1870 NEXT N 

1880 NEXT R 

1890 GOTO VAL "1950" 

1900 FOR N=s1 TO 4 

1910 LET M$ (L+N, C+D) =" 

1920 NEXT N 

1930 NEXT R 

1950 FOR D=1 TO 3 

1960 LET L=INT (RND*14)+1, 

L970 LET C=INT (RND*14)+1 

1980 LET T=INT (RND*2)+1 

1990 IF T=1 THEN LET A=1 

2000 IF T=1 THEN LET B=2 

2010 IF T=2 THEN LET A=2 

2020 IF T=2 THEN LET B=2 

2030 IF L=14 AND C>13 THEN GOTO 
VAL "1960" 

2040 IF C=14 AND L>23 THEN Goto 
VAL "1960" 

2050 IF L>13 AND T=2 THEN GOTO V 
AL "1960" 

2060 IF C>i3 AND T=À THEN GOTO V 
AL "1960" 

2070 FOR 2=0 TO A 

2080 FOR N=0 TO B 

2090 IF M$(L+2,C+N) <>" " THEN Go 
TO VAL "1960" 

2100 NEXT N 

2110 NEXT 4 

2120 FOR Z=0 TO A 

2130 FOR N=0 TO B 

2140 LET M$(L+Z, CANJ=" RM 

2150 NEXT W 


2160 NEXT 2 

2170 TP L=14 OR C=14 THEN GOTO V 
AL "2290" 

2280 IF T=1 THEN GOTO VAL "2240" 
2190 FOR N=0 TO 1 

2200 LET M$(LAN,C)="BI 

2210 NEXT N 

2220 NEXT D 

2230 GOTO VAL "2400" 

2240 FOR N=0 TO 1 

2250 LET M$(L,C+N) =" 

2260 NEXT N 

2270 NEXT D 

2280 GOTO VAL "2400" 

2290 IF C=14 THEN GOTO VAL "2350 


2300 FOR N=0 TO 1 

2310 LET M$(L+1,C4N)="BI" 

2320 NEXT N 

2330 NEXT D 

2340 GOTO VAL "2400" 

2350 FOR N=1 TO 2 

2360 LET M$(L+N,C+HI)="T" 

2370 NEXT N 

2380 NEXT D 

2400 FOR S=l TO 4 

2410 LET L=INT (RND*15)+41 

2420 LET C=INT (RND*15)+1 

2430 IF M$(L,C)=" " THEN GOTO VA 

L "2450" 

2440 GOTO VAL "2410" 

2450 IF L=1 OR L=15 OR C=l OR C-= 
15 THEN GOTO VAL "2510" 

2460 IF M$(L-1,C-1)<>"*" AND M$( 

L-1,C-1)<>" " OR M$(L-1,0)<>"*" 

AND M$(L-1,C0)<>" " OR M$(L-1,C+1 
)<>"*" AND M$(L-1L,C+1)<>" “ OR M 
$(L,C-1l)<>'ta" AND M$(L,C-1) <>“ H 
OR M$(L,C+l)<>"*" AND M$(L,C+2) 
<>" " OR M$(L+L,C-1)<>"*" AND M$ 
(L+1,C-1)<>" " OR M$(IAI,C)<>"*" 
AND M$ (L+],,C)<>" " OR M$ (L4&lL,C+ 
l)<>"*" AND MS(L+&L,C+H) <>" " THE 

N GOTO 2410 

2470 GOTO VAL "2760" 

2510 IF L=1 AND C=1 THEN GOTO VA 

L "2600" 

2520 IF L=1 AND C=15 PHEN GOTO V 
AL "2620" 

2530 IF L=l AND C>1 AND C<15 THE 
N GOTO VAL "2640" 

2540 IF L=15 AND C>1 AND C<15 TH 
EN GOTO VAL "2660" 

2550 EP L=15 AND C-=1 THEN GOTO V 


AL "2680" 
2560 IF L=15 AND C=15 THEN GOTO 
VAL "2700" 


2570 IF C=1 AND L>1 AND L<1l5 THE 
N GOTO VAL "2720" 

2580 zF C=15 AND L>1 AND L<15 TH 
EN GOTO VAL "2740" 

2600 IF M$(L,C+1)<>"*" AND M$(L, 
C+1)<>" " OR M$(L+I,C)<>"*" AND 

M$ (L+1,C) <>" " OR M$(L+IL,C+1l)<>" 
*" AND M$(L+1,C+1) <>" " THEN GOT 
o 2410 

2610 GOTO VAL "2760" 

2620 IF M$(L,C-1)<>"*" AND M$ÍL, 
C-lj<>" " OR M$(L+1,C)<>"*" AND 

M$ (L+1,C)<>" *" OR M$(L+L,C-1) <>" 
*" AND M$(L+1,C-1)<>" " PHEN GOP 
o 2410 

2630 GOTO VAL "2760" 

2640 IF M$(L,C-1)<>"*" AND M$(L, 
C-1)<>" " OR M$(L,C+1)<>"*" AND 

M$ (L,C+l)<>" " OR MÉ(L+1,C-1)<>" 
*” AND M$(L+],C-1)<>" “ OR M$ (L+ 
1,C)<>"*" AND M$(L+1,C)<>" “ OR 

M$ (L+L,C+1)<>"*" AND M$(L+1l,C+I) 
<>" " THEN GOTO 2410 

2650 GOTO VAL "2760" 

2660 IF M$(L,C-1)<>"*" AND M$IL, 
C-1l)<>" " OR M$(L,C+1)<>"*" AND 

M$(L,C+1l)<>" " OR M$(L-L,C-1) <>" 
*" AND M$(L-1,C-1)<>" " OR M$(L- 
1,C)<>"*" AND M$ (L-1,C)<>" n” OR 

M$ (L-1,C+1)<>"*" AND M$(L-2,C+1) 
<>" " PHEN GOTO 2410 

2670 GOTO VAL "2760" 

2680 IF M$(L-1,C)<>"*" AND M$ (L= 





1,C)<>" n OR M$ (L-1,C+1) <>"! AN 


D M$(L-1,C+1)<>" ” OR M$(L,C+1)< 
>"*º AND M$(L,C+1)<>" " THEN GOT 
O z410 


2690 GOTO VAL "2760" 

2700 EF M$(L,C-1)<>"*" AND M$(L, 
C-1)<>" " OR M$(L-1,C-1)<>"*" AN 
D M$(L-1,C-1)<>" " OR M$(L-1,C)< 
>"*" AND M$(L-1,C)<>" "“ THEN GOT 
O 2410 

2710 GOTO VAL "2760" 

2720 IF M$(L-1,C)<>"*" AND M$ (L- 
1,C)<>" " OR M$(L-L,C+1)<>"*" AN 
D M$(L-1,C+1)<>" " OR M$(L,C+1)< 
>"*" AND M$(L,C+l)<>" " OR M$(L+ 
1,C+1)<>"*" AND M$(L+L,C+1) <>" " 
OR M$(L+1,C)<>"*" AND M$(L+1,C) 
<>" " THEN GOTO 2410 

2730 GOTO VAL "2760" 

2740 IF M$(L-1,C)<>"*" AND M$(L- 
2,C)<>" " OR M$(L-1L,C-1)<>"*" AN 
D M$(L-2,C-1)<>" " OR M$(L,C-1)< 
>"*" AND M$(L,C-1)<>" " OR M$(L+ 
1,C-1)<>"*" AND M$E(L+HL,C-1) <>" 
OR M$ (L+1l,C)<>"*" AND M$(L+F1,C) 
<>" " THEN GOTO 2410 

2760 LET M$(L,C)='EH" 

2770 NEXT 5 

2780 SLOW 

2790 PRINT AT 18,1;"0K... AGORA 

EM A SUA VEZ 

2800 FOR N=1 TO 40 

2810 NEXT N 

2815 DIM A$(38,2) 

2816 LET A=0 

2817 LET HID=6 

2820 PRINT AT 18,1;"MONTE 5 HIDR 
os (e, n 

2900 FOR H=1 TO 5 

2901 PRINT AT 18,1;"MONTE “:;HID- 
H:” HIDROS 2) ui 
2910 FOR N=1 TO 3 

2920 GOSUB VAL "3150" 

2930 NEXT N 

2940 NEXT H 

2950 PRINT AT 18,1;"MONTE 1 COUR 
ACADO: y 

2960 FOR N=1 TO 5 

2970 GOSUB VAL "3150" 

2980 NEXT N 

2981 LET CRU=3 

2985 PRINT AT 18,1;"MONTE 2 CRUZ 
ADORES: EEE ” 

2990 FOR Z=1 TO 2 

2991 PRINT AT 18,1;"MONTE ";CRU- 
Z;" CRUZADORES: [EE " 

3000 FOR N=1 TO 4 

3010 GOSUB VAL "3150" 

3020 NEXT N 

3030 NEXT & 

3035 LET DES=4 

3040 PRINT AT 18,1;"MONTE 3 DES? 

ROYERS: IH ! 

3050 FOR D=1 TO 3 

3055 PRINT AT L8,1;"MONTE ";DES- 

D;" DESTROYERS: IH 

3060 FOR N=1 TO 2 

3070 GOSUB VAL "3150" 

3080 NEXT N 

3090 NEXT D 

3095 LET SUB=5 

32100 PRINT AT 18,1: 

ARINOS: M id 
3120 FOR S=1 TO 4 
3115 PRINT AT 18,1;"MONTE ";SUB- 

S;" SUBMARÍINOS: kid 

3120 GOSUB VAL "3150" 

3130 NEKRT 5 

3140 GOTO VAL "4000" 

3150 PRINT AT 19,1:"DIGITE LINHA 
/COLUNA " 

3160 INPUT L$ 

3170 IF LEN L$<>2 THEN GOTO VAL 
na150" 

3180 LET L=CODE L$(1)-37 

3181 IF L<1l OR L>15 FHEN GOTO VA 
L "3340" 

3190 LET C=CODE L$(2)-37 

3220 FF C<l OR C>15 THEN GOTO VA 
L "3360" 


"MONTE 4 SUBM 
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E MAIS SUCESSO PARA VOCÊ! | 


Do d Comece uma nova fase na sua vida profissional, E 
AE É Os CURSOS CEDM levam até você o mais moderno ensino 
Da o técnico programado e desenvolvido no País. 


São mais de 140 apostilas com informações completas e sempre Métodos novos e inéditos de ensino garantem um aprendizado 
atualizadas Tudo sobre os mais revolucionário CHIPS, E você prático muito melhor. Em cada nova lição, apostilas ilustradas 

recebe, além de uma sólida formação teórica, KITS elaborados ensinam tudo sobre Amplificadores, Caixas Acústicas. Equalizadores. 
para O seu desenvolvimento prático. Garanta agora o seu futuro. Toca-discos, Sintonizadores AM/FM, Gravadores e Toca-Fitas, Cápsulas 
e Fonocaptadores, Microfones, Sonorização, Instrumentação de Mevidas 
em Audio, Técnicas de Gravação e também de Reparação em Áudio 
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CEDM-20 - KIT 
de Ferramentas. 

à CEDM.78 - KIT E 

à Fonte de Alimentação fi 
Sv/1A. CEDM-35 KIT É 
Placa Experimenta! 
CEDM-74 - KIT 
de Componentes. 
CEDM-80 

à MICROCOMPUTADOR 

| Z80 ASSEMBLER. 


















































































































































CEDM-1 - KIT de Ferramentas. CEÉDM-2 . KIT Fonte de Alimentação 
+ 15-15/1A CEDM-3 - KIT Placa Experimental 

CEDM-4 - KIT de Componentes. CEDM-S -. KIT Pré-amplificador 
Estéreo. CEDM-S - KIT Amplificador Estéreo 40w, 











Você mesmo pode cesenvolver um ritmo próprio de estudo. A Jin- 
guagem simplificada dos CURSOS CEDM permite aprendizado fácil. E 
para esclarecer qualquer dúvida, o CEDM coloca à sua disposição uma 


equipe de professores sempre muito bem acessoráda, Além disso, você É 
básico até o BASIC mais avançado, incluíndo noções básicas sobre recebe KITS preparados para os seus exercícios práticos. 


Manipulação de Arquivos, Técnicas de Programação, Sistemas de Ágil, moderno e perfeitamente adequado à nossa realidade, os CUR- 


Processamento de Dados, Teleprocessamento, Multiprogramação e SOS CEDM por correspondência garantem condições ideais para o seu 
Técnicas em Linguagem de Máquina, que proporcionam um grande aperfeiçoamento profissional. 


conhecimento em toda a área de Processamento de DE To (67: GR ÁTIS 


Você também pode ganhar um MICROCOMPUTADOR. 


Telefone (0432) 23-9674 ou coloque hoje 
mesmo no Correio o cupom CEDM. 
Em poucos dias você recebe nossos catálogos de apresentação 


Este CURSO, especialmente programado, oferece os 
fundamentos de Linguagem de Programação que domina o universo 
dos microcomputadores. Dinâmico e abrangente, ensina desde o BASIC 
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CEDM Avenida São Paulo, 718 - Fone (0432) 23-9674, | 
CAIXA POSTAL 1642 - CEP 85100 - Londrina - PR ; 
CURSO DE APERFEIÇOAMENTO POR CORRESPONDÊNCIA k 


Solicito o mais rápido possível! informações sem compromisso sobre o 
BASIC Científico 


KIT CEDM Z80 CURSO de. ,...... 
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KIT CEDM Z80 l 
| 
| 
BASIC Simples. : Vi Nome.... 
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Gabarito de Fluxograma 
E-4. KIT CEDM SOFTWARE 
Fitas Cassete com Programas. 


RUM Da e E DE Sa ASR SS 


CRIME sa Las Sosa Zaas 
Bairro. ............. 


nc» runas çagu 




























































































































































































































































































































































































































































































3230 IF P$(L,C)<>" " THEN GOTO V 
“AL "3380" 
3240 PRINT AT LC ? 
3250 PRINT AT 19,1:" (S/N) - CONF 
IRME - POR FAVOR 
3270 IFP INKEY$="S" THEN GOTO VAL 
"3400" ) 
3280 IF INKEY$="N" TEEN GOTO VAL 
"3300" 
3290 GOTO VAL "3270" 
3300 PRENT AT L,C;" " 
3320 PRINT AT 19,1;" 
“q 


3330 GOTO VAL "3150" 

3340 PRINT AT 19,1;"LINHA INVALI 
DA nm 

3341 FOR F=1 TQ 10 

3342 NEXT T 

3350 GoTO VAL 13150” 

3360 PRINT AT 19,1;"COLUNA INVAL 
IDA = 

3361 FOR T=1 TO 10 

3362 NEXT T 

3370 GOTO VAL "3150" 

3380 PRINT AT 19,1;"CAMPO JA OCU 
PADO li 

3381 FOR T=1 TO 10 

3382 NEXT T 

3390 GOTo VAL "3150" 

3400 PRINT AT 19,1;º 


3410 LET P$S(L,O =" 
3411 LET A=A+1 
3412 LET AS (A)=L$ 
3420 RETURN 
4000 PRINT AT 18,1;“MUITO BEM... 
VOCE TEM 3 TIROS." 
4010 PRINT AT 20,1;"E LOGO EM SE 
GUILDA DAREI OS MEUS” 
4011 FOR N=1 TO 30 
4012 NEXT N 
4020 FOR N=1 TO 3 
4030 PRINT AT 174+N,1;" 
nm 


4040 NEXT N 

5000 LET M=0 

5010 LET P=M 

5020 DIM I(3) 

5030 DIM 0(3) 

5035 DIM W$(3,2) 

5040 FOR N=1 TO 3 

5050 PRINT AT 18, 1; "INFORME LINH 
A E COLUNA >JUNTOS<" 

5060 INPUT N$ 

5065 IF N$="**" THEN GOTO 8525 
5070 IF LEN N$<>2 THEN cotTo VAL 
"5160 ” 

5080 LET L=CODE N$(1 TO 1)-37 
5090 IF L<l OR L>15 THEN GOTO VA 
L "n160º 

5100 LET C=CODE N$(2 TO 2)-37 
5110 IF C<1l OR €C>15 THEN GoTo VA 
L "5160" 

5120 PRINT AT L,C+16p"* 

S$130 LET I(N)=L 

58140 LET O(N)=€ 

5145 LET W$ (N) =N$ 

5150 GOTO VAL "5200" 

5160 PRINT AT 18,1;">>>>> TIRO I 
NVALIDO «<<s<<< Lud 

5170 FOR Y=1 TO 10 

S1B0 NEXT Y 

5190 Goto VAL "5050" 

5200 NEXT N 

5205 FOR N=1 TO 3 

5210 IF M$ (I(N),O(N)) <>" ” AND M 
$(1(N),0(N))<>"*" THEN GOTO 5260 
5220 LET M$ CI UN) O(N))="F* 

5230 PRINT AT 17+N,1;"TORPEDO Ne 
N;" AGUA E 

5240 NEXT N 

5241 FOR Z=1 TO 30 

5242 NEXT 2 

5250 GoTo VAL "5590" 

5260 LET X=CODE M$ (I(N) O(N)) 
5270 IF X=8 THEN GOTO VAL "5330" 
5280 IF X=173 THEN GOTO VAL “s42 





IF X=168 THEN GOTO VAL "544 













5300 IF X%=191 THEN GOTO VAL “546 
o" 

5310 IF X=184 THEN GOTO VAL "548 
o" 

5320 IF X=169 THEN GOTO VAL "550 
Q” 

5330 PRINT AT 17+N,1;"TORPEDO "; 
N;" PARTE JA ATINGIDA " 

5340 PRINT I(N),0(N)+167 "83º 

s350 FOR B=1 TO 3 

5360 RAND USR 16542 

5370 FOR Z=1 TO 5 

5380 NEXT Z 

5390 NEXT B 

5400 NEXT N 

5410 GOTO VAL "5590" 

5420 PRINT AL 17+N,1; "TORPEDO ei: 
W$(N);" >> HIDRO << a 
5430 GOTO VAL "5510" 

5440 PRINT AT. 17+N,1; "TORPEDO “; 
W$(N);" > COURACADO < a 
5450 GOTO VAL "5510" 

5460 PRINT AT 17+N,1; "TORPEDO “; 
W$ (N) ">. CRUZADOR < ia 
5470 GOTO VAL "5510" 

5480 PRINT AT 17+N,1; "TORPEDO *; 
WS (N);" > SUBMARINO < N 
5490 GOTO VAL "5510" 

5500 PRINT AT 17+N,1;"TORPEDO *; 
W$(N);" > DESTROYER < n 
5510 PRINT AT I(N),0(N)+16;"H" 
5520 LET M$(T(N) O(N)="E3" 

5530 FOR W=1l TO 6 

5546 RAND USR 16514 

5550 NEXT W 

5560 LET P=P+1 

5561 PRINT AT 21,1;"HUMANO =",38 
-P,AT 21,15; "MICRO =":38-M;" 
5570 IF P=38 THEN GOTO VAL "5900 


5580 NEXT N 

5581 FOR N=1 TO 50 

5582 NEXT N 

5590 FOR N=1 TO 3 

5600 PRINT AT 174N,1;” 
nu 


5610 NEXT N 

5611 PRINT AY 18,1;"RECONHECIMEN 

TO? (S/N)" 

5612 IP INKEY$="S" THEN GOTO VAL 
"8000" 

5613 IF INKEY$="N” THEN GOTO VAL 
n5620" 

S614 GOTO VAL "5612" 

5620 PRINT AT 18,1;"EE] MINHA VEZ 
co LA VAI CHUMBO" 

5630 FOR N=1 TO 10 

5640 NEXT N 

5650 PRINT AT 18,1;" 


5655 FAST 
5660 FOR N=1 TO 3 
5661 IF NI=1 THEN GOTO VAL "5670 


5662 IF NI=2 THEN GOTO VAL “5664 
5663 IF NI=3 THEN G9TO VAL "5669 


5664 IF M<P THEN GOTO VAL "5741" 
5665 GOTO VAL "5670" 

5669 IF M<=P THEN GOTO VAL "s741 
“ 


5670 LET L=INT (RND*15)+1 

5680 LET C=INT (RND*15)+1 

5690 IF P$(L,C)="€ OR P$(L,C)=" 
*" THEN GOTO VAL "5670" 

5700 IF P$(L,C)="W' THEN GOTO VA 
L "7000" 

5710 LET P$(L,C)="*" 

5720 PRINT AT LC;"*" 

5725 RAND USR 16542 

5730 NEXT N 

5735 SLOW 

5740 GOTO VAL "5830" 

5741 LET SA=INT (RND*38)+1 

5742 IF AF(SA)="**" THEN GOTO VA 
L "5741" 

5743 LET L=CODE AS (SA)-37 

5744 LET C=CODE Af(SA,2 TO )-37 
5745 LET Af(SA)="**" 


BATALHA NAVAL 


5750 LET P$(L,C) =" 
5755 SLOW 
5760 PRINT AT L,C;'N' 
5770 FOR W=1 TO 10 
5771 PRINT AT LC; * 
5780 PRINT AT LC; 
5781 RAND USR 16542 
5790 NEXT W 
5791 PRINT AT L,C;"tH” 
5800 LET M=M+1 
5801 PRINT AT 21,1;"HUMANO =",38 
-P,AT 21,15; "MICRO =",38-Mp" 
5810 IF M>=38 THEN GOTO VAL “600 
o” 
5815 FAST 
5820 NEXT N 
5825 SLOW 
5830 PRINT AT 18,1;" >>> HUMANO 
JOGA <<<” 
5840 FOR N=1 TO 10 
5850 NEXT N : 
5860 PRINT AT 18,1;" 
nu 


5870 GOTO VAL' "5020" 

5900 PRINT AT 18,1;"” >>> PERDI 

A BATALHA <<< " 

5910 PRINT AT 19,1:"MEUS NAVIOS 

FORAM DESTRUIDOS " 
5920 PRINT AT 20,17" 

o - Me" 

5930 FOR N=1 TO 50 
5940 NEXT N 

5960 CLS 

5970 GOTO VAL "8530" 
6000 PRINT AT 18,1;"VOCE FOI RED 

UZIDO A CINZAS" 

6010 PRINT AT 19,1; "NAO CONSEGUI 

U RESISTIR AOS MEUS” 

6020 PRINT AT 20,1;“TIROS CERTEI 

ROS ... HA HA HA " 

6030 GOTO VAL "5930" 

7000 FOR W=1 TO 38 

7010 IF CHR$ ((L)+37) +CHR$ (+ 
37) =AS (W) THEN LET Af(W)="**" 
7020 NEXT W 

7030 corto 5750 

8000 PRINT AT 19,1;"COURACADO 5 
PARTES" 

BOLO GOSUB VAL "8100" 

8020 PRINT AT 19,1:"CRUZADOR 4 
PARTES " 

8030 GOSUB VAL "8100" 

8040 PRINT AT 19,1;"DESTROYERS 2 
PARTES * 

8050 GOSUB VAL "8100" 

8060 PRINT AT 19,1;"SUBMARINO 1 
PARTE 

8070 GOSUB VAL "8100" 

8080 GOTO VAL "5590" 

8100 FOR W=1 TO 15 

8110 NEXT W 

8120 RETURN 

8500 PRINT ,, 11144" "ESCOLHA O NI 
VEL DE JOGO”, ,,"l — PACIL”,,"2 — 
MEDIO",,"3 — DIFICIL" 

8501 INPUT NI 

8510 IF NI<l OR NI>3 THEN GOTO V 
AL "8501" 
8515 CLS 
8520 RETURN 
8525 CLS 
8530 LET 2$= 
8540 PRINT AT 1,5;2% 

9000 FOR W=1 TO 15 

9005 LET X=165+W 

9010 PRINT AT W+1,4;CHR$ X;M$ (W) 


RE ND 





9025 PRINT AT 17,5:2Z$ 
9030 PRINT AT 19,5;"NAVIOS DO MI 


9040 PRINT AT 21,1;"P/ OUTRA BAT 
ALHA APERTE RUN" 

9045 STOP 

9050 SAVE "BATALHA NAVAL" 

9060 |RUN 


m 
Ma 
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No NA PÁGINA 


27 | 75,no programa Projeto de 
Antenas Direcionais, troque 
as linhas 170 e 590 que fo- 

ram publicadas por: 


CORREÇÃO 


170 LET REF=INT(500/F*30+0.5)/100 
















590 FOR I=INI TO FIM 
















15, no programa Vigas Con- 
tínuas, troque aslinhas 480, 
510, 550, 635, 780, 940, 

1160 e 1200 que foram pu- 
blicadas por: 


480 R=-(U(1,2)*X+U(1,3) J/U(1,1):R(1)=R:ER(2)=X:MP=U(2,1 J*R+U( 
2,2)*X+U(2,3):GOTO 520 


510 R=(Y-U(2,2)*X-U(2,3))/0(2,1):R(1)=R:R(2)=X:MF=y 
550 PRINT"MOM. NEGATIVO = ",INT(R(2)) 

635 PRINT: PRINT: PRINT"MOM, FINAL = ",,INT(MP) 

780 PRINT"QE = ”,, INT(Q) 

940 IF D<0 THEN GOTO 1010 

1160 G=P(A) : Q=2*2(1)4A(G)+Z(2) : PRINT "QD= ",, INT(Q) 
1200 PRINT"M+ = ",INT(X(4)) 












































42, no programa Linha de 75: INPUT "SIMP(0), ENG(0.5) = ";P 
Influência, troque as linhas 

75, 430 e 460 que foram 430:Y=H*(M*R-S)/(1-H*M) 

publicadas por: - 460: Y=M*(H*S-R)/(1-M*H) 





65, no programa Catálogo, 
troque a linha 38400 que 
foi publicada por: 


38400 IFJ>JNMP$ (C1) THENC3(7)=]-FNMP$(C1):3=FNMP$(C1):GOSUB 
38500:C3(1)=C3(1)-1:C3(6)=C3(6)+]:]=03(7):GOTO 38400 













77, no programa Marcus, 
troque a linha 200 que 
foi publicada por: 











38, na matéria Pacotão de 
hardware para os Sinclair, 
a figura 7 foi publicada 

faltando alguns dados; veja 
a correta: 
















MOTA:- 
TODOS às RESISTORES 
SÃO DE 176% 







Figura 7 do Pacotão de Hardware para os Sinclair 
















15, do programa Editor 
de Textos, as últimas 
linhas da listagem foram 
suprimidas; acrescente, 
após a linha 2360, as 
seguintes linhas: 


2370 IF J=TM THEN 2390 

2380 IF C$>=" " AND C$<="z" THEN R$=R$+C$:J=J+1:GOTO 2410 

2390 IF C$=CHR$(13) THEN PRINTGK+]," ".-RETURN 

2400 IF C$=CHR$(8) THEN IF J>0 THEN J=J-1:R$=LEFTS$(R$,9) 
ELSE 2360 ELSE 2360 

2410 PRINTeK,R$;CHRS(CR);" ts 

2420 GOTO 2360 
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Não deixe que os bytes decidam por você. Conheça-os melhor e aprenda 
a controlá-los. Aqui, alguns segredinhos sobre eles 








Mantenha 


seus bytes 


sob controle 


Carlos Alberto Diz 





fodos conhecemos o byte e o tratamos com a familia- 

ridade de um velho amigo. Sendo assim, sabemos que 

um byte é um conjunto de bits (oito) e que um bit é 

algo que só pode ter dois valores ou estados: 1 (ligado 

ou setado) ou O (desligado ou ressetado). Um bit é, portanto, o 
menor elemento de informação num computador. 

O valor de um byte é determinado pelo estado dos bits 
que o compõem e pela ordem em que se encontram, pois os 
bits não são todos iguais. Cada bit, por sua posição dentro do 
byte, corresponde a uma potência de 2, na seguinte ordem (no- 
te que os bits estão numerados da direita para a esquerda, co- 
meçando com o número O e terminando com o número 7): 


Bit nº: 7 6 5 4 3 2 1 0 
x : ? 6 5 4 3 2 1 [é] 
2 x 128 6 4 32 16 8 b 2 1 


O valor de um byte é a soma dos valores (potências de 2) 
individuais dos bits que nele encontram-se setados (lembramos 
que um número elevado à potência de O é igual a 1). Por exem- 


plo: 
Bit nº : 7 6 5 4 3 2 1 4) 
2 x : 128 6% 32 16 a t 2 1 
Byte A : 0 1 1 0 LU 1 1 t+ = 103 
Byte B : 1 1 | o 0 o = 192 
Byte €C : 1 1 1 1 1 1 1 1 = 255 


A conclusão é que o valor de um byte é obtido através da 
soma dos valores correspondentes aos bits que estejam setados. 
Conforme a tabela que acabamos de ver, o byte A é, portanto, 
igual a 64+32+4+2+1,0 byte B é igual a 128+64 e assim por dian- 
te. (É interessante notar que o valor do byte €, que tem todos 
os seus bits setados, é igual a 255, ou seja, 28-1 =256-1 
= 255. Isto significa dizer que podemos calcular .o valor máxi- 
mo representável por um número x de bits como sendo 2X-1). 

Segundo as regras de combinações e permutações, oito coi- 
sas que possam ter dois estados cada uma permitem 256 com- 
binações diferentes, como é o nosso caso. Aí alguns vão dizer: 
“Errou! Errou! Se o valor máximo de um byte é 255, como 
pode ter 256 combinações?” E eu direi: “Não se esqueçam do 
zero! Do O ao 255 são 256 passos, certo?” 


76 





SETANDO E RESSETANDO 





Uma das tantas conclusões que se pode tirar da observação | 
de números binários é que cada bit representa um valor queé 
uma função de sua posição dentro do byte. Por exemplo, o ; 


terceiro bit (contando sempre da direita para a esquerda) re- 
presenta o valor 4 e o sétimo o valor 64. 

Suponhamos ter um byte com valor 90 (01011010). Se 
conseguirmos ressetar o bit número 3, transformaremos o 
byte 90 em 82 (01010010), pois a única diferença entre 90 
e 82 é o bit número 3 que, não por acaso, representa o valor 


8, ou seja, 90-82 =8. Ressetar um bit significa portanto: | 
subtrair do byte o valor correspondente a este bit, enquanto | 


setar o bit equivale a somar. 
Até aqui nenhuma novidade, mas como fazer para setar ou 


ressetar o bit? Vamos, então, ao que afinal nos interessa: como | 
manipular estes bits, ou seja, como setar ou ressetar um bit | 
dentro de um byte. Para isto, será necessário refrescar um pou- 4 
co a memória sobre as propriedades das funções lógicas AND, | 


OR e NOT. 
A figura 1 mostra as tabelas de resultados destas operações, 
que, apesar de aplicáveis no micro a bytes inteiros, agem, na 


realidade, a nível de bit. Por exemplo: a função AND, quando | 
aplicada entre dois bytes (A AND B), produzirá um terceiro | 
(€) cujos bits serão o resultado de um AND entre os bits de 4 


Ae os de B, um a um, segundo as regras que constam da figu- 
rai. 
Usando os mesmos bytes que usamos anteriormente, se 


A=90 e B= 82, então A AND B =C e €= 82 (figura 2). Mara- | 
vilha! Conseguimos encontrar uma maneira de'ressetar O bit 4 
número 3 em A, e apesar de não ser exatamente a solução, | 
aqueles que curtem um suspense já têm aqui uma boa dica. | 

Se eu quiser ressetar o bit número 1 de 18 (00010010), ; 
devo então ANDeá-lo (que o Aurélio me perdoe!) com 16, ; 
pois 18 AND 16 = 16 (isto é, 18 com o bit 1 ressetado). “É, À 
mas se eu souber de antemão qual o valor de B para transfor- ; 


mar A em B, por que não uso B de uma vez e pronto?”, dirão 


aqueles que sempre dizem estas coisas e com razão, pois O que : 
precisamos é de uma técnica que seja independente do byte 


original. 
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X AND Y 


NOT(X) 
) 


1 





Figura 1 








01011010-90 
01010010=82 - 
DB = €C = 01010010=82 





A = 
B = 
A AN 





Figura É SE RE 


E realmente a dica é boa, já que um momento de reflexão | 


revela que conseguimos ressetar o bit que queríamos porque 
fizemos um AND dele com 0, e o resto do byte ficou inaltera- 
do porque todos os demais bits foram ANDeados com 1 (con- 


fira você mesmo): A conclusão é que, para ressetar um bit num . 


byte determinado, é preciso ANDear este último com outro 
cujos bits estejam todos setados, exceto o que corresponde à 
posição do bit que queremos ressetar. Em outras palavras (ou 
números): para ressetar o bit número 3 (2143=8) de 90 preci- 


samos ANDeá-lo com 247 (255-—8= 247), pois 01011010 AND 


11110111 = 01010010, certo? E, da mesma fórma, para setar 
este bit de novo, precisamos OReá-lo com 8, pois 01010010 
OR 00001000 = 01011010. E, finalmente, como NOT 
(00001000) = 11110111, então 90 AND(255-8) = 90 AND 
NOT(8). 

Fazendo algumas experiências, descobrimos, adicionalmen- 
te, que se chamarmos de X um byte que consista de um só bit 
na posição correspondente ao bit em A que desejamos mani- 
pular, então: 

X se o hit es questão estiver sctado 
A AND X = =” 

O se o bit em questão estiver ressetado 
Em resumo: . 
1 —a função AND permite verificar o estado de um bit; 
2 — a função AND NOT permite ressetar um bit; 
3 — a função OR permite setar um bit. 

E aqui os sequazes de São Tomé se questionarão: “Será este 
cara mais um daqueles loucos que gostam de descobrir manei- 
ras de contrariar o computador e fazer o impossível só pelo 
prazer de dizer que está feito, ou este papo de mexer nos bits 
serve para alguma coisa de útil?” E a estes eu respondo: as 
grandes invenções não surgem em função de uma necessidade, 
mas sim vice-versa, porém desta vez já existe uma aplicação 
prática para tudo que acabo de revelar... 


EXEMPLOS DE APLICAÇÃO 


Como primeiro exemplo, suponhamos que em um determi- 
nado programa espere-se do operador, pela razão que seja, o 
input de uma letra, por exemplo, A maiúsculo. Se o teclado do 
computador tiver maiúsculas e minúsculas e o programa não 
especificar que espera uma letra maiúscula, o operador estará 
sujeiro a teclar um a ou um A, dependendo mais da inspiração 
do momento do que de uma consideração lógica sobre as con- 
sequências de uma decisão ligeira. E, segundo a lei de Murphy, 
ele sempre teclará a letra errada e o seu programa poderá en- 
tão fazer coisas incríveis... 

Contando com esta inevitável insensibilidade do operador, 
você poderá fazer com que o programa aceite indiferentemente 
minúsculas e maiúsculas. Para tanto, você poderá usar uma das 
213 diferentes soluções encontradas para este problema pelos 
analistas do American Institute of Informatic Idiosynchrasies 
(AIII), como por exemplo: Ê 
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INFORMÁTICA AO 


q ALCANCE 
DE TODOS 


COS ENTRE NA ERA 
DOS COMPUTADORES 


TAXA Cr$ 30.000,00 
UNICA SEM MENSALIDADE 


e Introdução ao Processamento 

de Dados e Digitação e Basic 
e Cobol «e RPG e PL 1 Fortran 
e Assembler e Mumps 


oo/-1417 - 521-4936 - 267-9261 


Copa — Centro — Tijuca — Meier 
Madureira — N. Iguaçu — Caxias 


DATABERAR — PROCESSAMENTO 
DE DADOS Rio de Janeiro 


























O sucesso no Micro-Festival 84, 

á sá da qualidade maior, 
do preço menor e 

das vendas realizadas, 


agora tem um novo nome: 


craft 


e um novo endereço: 


33 Eh) 


SBLCCO 


computer store 





À Sacco Computer Store, está agora em novas e 
amplas a reação com sua variada linha de compu- 
tadores e periféricos, destacando-se o novo micro- 
computador CRAFT Ii plus”, totalmente compatível 
com D.O.S. 3.3 e CP/M. 

Conheça todas as características e vantagens 
do CRAFT Il plus, também compatível com IVANITA"*, 
em nosso novo endereço; 


. Photoservice 


“Al. Gabriel Monteiro da Silva, 1229 - J. Paulistano 


São Paulo - Tels.: (011) 853-5520 e 280-4778 


("3 CRAFT II plug é marca registrada da MICROCRAET Ind 8 Com. Liga 
fF"*LIVANITA - Gerador de Caracieres para Ingua portuguesa 











MANTENHA SEUS BYTES SOB CONTROLE 


al 


RPS=STRINGS(20.CHRS(0)):REM reseta todos os bits dos 20 bytes que comvoem RP: 
FOR I=0 TO 159: REM 160 vezes. uma para cada resposta 

BY=INT(O/8)+1: BI=((1/8)-INT(I/8))*x8 
PRINT'"“Indique a resposta (S/N) “; 


A9=INKEYS-IF X$=""THEN 40 ELSE X$=CHRSCASCAS AND NOT(32) 

ON INSTRC'SN",X5) GOTO 70.80:REM Aceita somente 8 ou N 

GOTO 40:REM Volta a pedir input caso nao tenha sido S nem N 
MIDSCRPS.BY.1)=CHRS(ASC(MIDS(RPS.BY,1)) OR (ZABI)): REM Seta O bit se for Sim 
NEXT.REM Vem direto para aqui se for NÃO (os bits foram resetados no inicio) 





Figura 3 


e sad ao operador que tipo de letra você quer (pouço imagi- 
nativo); i É 
e duplicar o código de resposta (trabalhoso e ineficiente; 
e fazer um IF para ver se a letra é minúscula e transformá-la 
em maiúscula se realmente for (muito pouco elegante e lento). 
Você pode escolher qualquer uma, ou então optar pela solu- 
ção mais rápida e eficiente: fazer um AND da letra inputada 
com NOT(32) para transformá-la em maiúscula se for minús- 
cula, ou deixá-la como está, se for maiúscula. , 
Gostou? Bom, deixe-me explicar melhor. Supondo que a 
letra inputada está em X$, então os comandos são: X$= CHRS$ 
(ASC(X$8) AND NOT(32)), e X$ será sempre urria letra maiús- 
cula. O segredo está em lembrar que a diferença entre os códi- 
gos ASCII de uma letra minúscula e maiúscula é sempre 32 
(ASC(a)= 97 e ASC(A)= 65), e em perceber que 32 é valor 
do bit 5 e que, portanto, é suficiente ressetar este bit para sub- 
trair 32 de uma letra minúscula e transformá-la em maiúscula. 
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Já se a letra for maiúscula, o bit 5 já estará ressetado e nossa 
operação não fará nenhuma diferença. 

Suponhamos agora que você queira guardar em disco as res- 
postas de um estudo sobre “Hábitos dos programadores de 
microcomputadores do Brasil”, feito por meio de formulários, 
sendo que cada formulário contém 160 respostas do tipo “sim 
ou não”. 

Se você guardar cada resposta como uma letra (S ou N), es- 
tará usando um byte para cada resposta, e assim cada formulá- 
Tio ocupará 160 bytes de memória. Porém, pensando bem, se 
uma resposta só pode ser SIM ou NAO, então ela só tem dois 
estados, exatamente como um bit. 

Um bit setado poderia equivaler a um SIM e um bit resseta- 
do a um NÃO. Desta forma, um só byte poderia conter oito 
respostas, e o formulário ocuparia só 20 bytes em vez de 160, 
o que representa uma economia não desprezível de 87.5%. 

Mas como fazer isso? Bom, se cada byte contém oito res- 
postas, a resposta número X (começando a contar de zero) ca- 
berá no byte número BY= INT(X/8)+1 e o bit correspondente 
será o BI-((X/8)-INT(X/8))* 8. Faça um OR de BY com 
(Q+BI) se a resposta X for SIM, ou faça um AND de BY com 
NOT( + BI) se a resposta for NÃO. 

A figura 3 mostra um simples programinha que faz exata- 
mente isso num TRS-80, inclusive utilizando o macete do pri- 
meiro exemplo na-linha 140. Usando este programa, as 160 
respostas estarão todas contidas na string RP$, a qual você po- 
derá guardar em disco, fita ou sei lá... Para decodificar RP$ e 
obter de volta as respostas, use a função AND para testar os 
bits um de cada vez, conforme expliquei. 


mto E CC AL =. 
OBSERVAÇÕES FINAIS 





Este programa só funciona com BASIC de disco por causa 
das funções INSTR (linha 50) e MID$ (linha 70), mas se você - 
não dispõe destas funções, substitua as linhas 50 e 60 como 
segue: 


50 IF X$ = “"S" THEN 70 ELSE IP X$ = "Nº THEN BO 
60 Y$ = RIGHT$ (LEFT$ (RP$,BY) rl):RP$ = LEFT$ (RP$,By-1)+ 
CHR$ (ASC(Y$) OR (214B1))+RIGHT$ (RP$,LEN(RP$)-BY) 


E importante: também lembrar que as funções lógicas AND, 
OR e NOT só funcionam a nível de bits nos BASIC da Micro- 
soft (que eu saiba) e com certeza não agem da mesma forma 
no Applesoft, o que impede que os Apple-amigos usem estas 
dicas. De qualquer forma, podem ficar sabendo que, se instala- 
rem CP/M e M-BASIC, poderão manipular seus bits. m 


e ii DE sais 
Carios Alberto Diz é formado em Engenharia Eletrônica pela Universi- 
dade de Dundee, Escócia, e possui Mestrado em Administração de Em- 
presas pelo INSEAD — Instituto Europeu de Administração de Empre- 
sas, Fontainebleau, França. Atualmente é sócio-gerente da Compusys- 
tems do Rio de Janeiro, uma system-house dedicada à consultoria in- 
formática e confecção de software sob medida. 
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Os Kits de Micro Chegaram! 


APPLEKIT - Kit de microcomputador tipo Apple? 





Componentes para montagem » 
de um microcomputador microcontrol 
Sistemas de Controles 


APPLEKIT completo. E | [ | Tels.: (011) 8149-0446 e 814-t110 
São Paulo - Brasil. 








[APPLEKIT 65010) onjunto de soquetes, conectores, resistores e ca- 


onjunto de semicond otes, TIL's, LSle memórias (As memórias EPROM são forneci- 
69100! Conjunto de teclado alfanumérico com 52 teclas e componentes, circuito im- 
“Fonte de alimentação tipo chaveado: [APPLEKIT 65300 Caixa de microcomputador em 


poliuretano. 00 | Manual de montagem e teste de micro. 


À PPLERIT é 100% compatível COM os.cartões periféricos da MICROCRAFT. | “ Apple é marca registrada de Apple Inc, 








Para você, usuário da linha TRS-80 modelo Il!, duas rotinas em BASIC 
que vão ajudá-lo a utilizar melhor os recursos do DOS 500 


lém do BASIC, 
ssembler, DOS e 


outros mistérios 


ma das queixas mais frequentes 

dos usuários do TRSDOS/DOS 

500 é a dificuldade na leitura 

do diretório. Devido à rapidez 
do rolamento da tela, mesmo utilizando- 
se a tecla & , fica difícil localizar um 
programa, principalmente porque, ao 
contrário do CP/M, os programas não 
são listados em ordem alfabética. E o que 
acontece? Bom, se o disco em questão 
estiver razoavelmente cheio, só consegui- 
remos achar um programa após várias e 
irritantes tentativas, e o pior é que, em 
99% dos casos, estamos interessados 
apenas em saber se ele está ou não na- 
quele disco, dispensando todas as demais 
informações. 

A única alternativa disponível, que é 
chamar o BASIC e apreciar o diretório 
simplificado CMD“D.d”, resolve apenas 
em parte o problema, pois persiste a ne- 
cessidade de uma lenta e cuidadosa pes- 
quisa correndo a ponta do dedo indica- 
dor sobre as quatro colunas da tela até 
se açhar o programa desejado, uma vez 
que este diretório simplificado também 
não é dado em ordem alfabética. 


Este problema será a motivação inicial 
para fazermos neste artigo uma pequena 
expedição ao território do Assembler e 
da linguagem de máquina. Aqui será des- 
crita uma sub-rotina em Assembler utili- 
zando rotinas já existentes no DOS para 
ler ou escrever em qualquer setor de um 
disco, a qual terá como aplicação dois 
utilitários: o primeiro fornece um dire- 
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tório em ordem alfabética do drive dese- 
jando (leitura) e o segundo possibilita a 
mudança do nome e/ou data de um dis- 
co (leitura-escrita). 





AS FERRAMENTAS DE TRABALHO 


As rotinas do TRSDOS/DOS 500 em- 
pregadas são: 

e CALL 4675H —lé um setor do disco; 
e CALL 4600H — escreve um setor no 
disco. 

A primeira rotina copia um setor (256 
bytes) do disco para um buffer na RAM 
definido pelo usuário; uma vez feita a 
cópia, o conteúdo do buffer pode ser 
modificado à vontade e escrito de volta 
no disco com o auxílio da segunda roti- 
na. Ambas exigem que sejam carregadas. 
nos registradores do Z80 as seguintes in- 
formações: 

e D — trilha onde se localiza o setor de- 
sejado; 


1 0111 !D DE, 1101H 
01 00 00 LD BC, 0000H 
21 00 BF LD HL , OBFOOH 
CD 75 46 CALL  4675H 
C9 RET 

Figura 1 





e E — setor; 
e B — zero; 
e € — número do drive (O — 3); 
e HL — endereço inicial do buffer de: 
256 bytes. 
A sub-rotina em Assembler, com os; 
respectivos códigos-objeto, está na figu-i 
ra 1. Estes códigos, convertidos para oi 
sistema decimal, serão lidos pelos dois 
programas e armazenados nas posições; 
BEFOH-BEFCH (48880D-48892D), re: 
resultando na linha 80 do primeiro pro-: 
grama ou na 130 do segundo: 


DATA 17, 1, 17,1, 0, 0, 33, 
O, 10%, 205, 117, 70, 201 













Note que o primeiro 1 da sequência: 
(posição BEFIH = 48881D) correspon-! 
de ao número do setor e que O primeiro 
O (posição BEF4H = 48884D) corres: 
ponde ao número do drive, e que o con-) 
teúdo desses endereços pode ser facil- 
mente modificado através de instruções 
POKE. ! 


* trilha em De setor em E 
- zero em Be drive em € 
: end inicial do buffer 
: leitura do setor 

* volta ao prog BASIC 
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——=— 1000000000 
TRSDOS/DOS 500 X NEWDOS 
-— 100100 


Para melhor compreensão de nossos 
aplicativos, torna-se importante, nesta 
altura, uma breve explanação sobre a 
organização da trilha 17 do TRSDOS 
DOS 500, a qual contém o diretório. 
de toda conveniência ter à mão, além 
do SUPERZAP do NEWDOS, o artigo 
O NEWDOS que não está nos manuais, 
publicado em MICRO SISTEMAS nú. 
mero 31, uma vez que a organização do 
diretório nesses dois sistemas apresenta 
muitos pontos em comum. 


Para examinar a trilha 17 do seu dis- 
co, coloque no drive O o disco com o 
NEWDOS e tecle SUPERZAP <ENTER>, 
seguido de DTS<ENTER>; coloque no 
drive 1 (ou O, conforme sua configura- 
ção) O disco com o TRSDOS/DOS 500 
e tecle 1, 17,1 (ou 0, 17, 1) <ENTER>. 
Importante: se você não dispõe de NEW. 
DOS, não fique triste: salte por cima da 
teoria a seguir, digite e usufrua dos apli- 


cativos (e... trate de arranjar um rapidi- 
nho!). 


Tal como no NEWDOS, o primeiro 


setor do diretório contém a tabela de - 


alocação de espaço no disco (a partir do 
byte 00H), o código da senha do disco 
(bytes CEH e CFH), o nome/data do dis- 
co (bytes DOH a DFH), a alocação do 
comando AUTO a partir de E0OH, além 
de outras informações. Digitando a tecla 
:» VOCÊ verá que o segundo setor tam- 
bém contém os códigos HASH (calcula- 
dos através do nome/extensão do arqui- 
vo — ver opção DNTH do SUPERZAP) 
correspondentes a cada um dos arquivos, 
ouo valor 00H se o arquivo foi apagado. 
Aqui, como no NEWDOS, a seqiiência 
dos códigos HASH corresponde exata- 
mente à sequência em que os arquivos 
aparecem no diretório, o que facilita a 
identificação. 


A partir do terceiro setor (ver figura 
2) começam as entradas do diretório 
propriamente ditas, e aqui reside a prin- 
cipal diferença em relação ao NEWDOS: 
ao invés de 32 bytes, cada entrada de ar- 
quivo utiliza 48 bytes, o que nos dá cin- 
co entradas por setor de 256 bytes e 
uma sobra de 16 bytes na última linha, 
bytes FOH a FFH, que são usados pelo 
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rápido e fáci 


. 





dimensões. 
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STEMAS está sensacional! Veja só: 
— Com a Editor Assembler Para a Linha Sinclair, você terá uma 
poderosa ferramenta Para fazer os seus Programas em Assembler. Mais 


— Apresentando um excelente tratamento de tela, com ilustrações 
bem interessantes, o programa Cálculo de Volumes permita calcular, 
automaticamente, o volume de 16 figuras geométricas, a partir de suas 





0 40 
OH 20 FFFF GERE FERE NErE 

30 4000 O0FD 0050 dy; 
DRS 40) 
309 50 
135H60 







FEFF ErrE 





























TRS EO 
o bo 
SH EM 





00 SEO? 5200 004% 4453 4743 2020 2043 ADA4 
PAi? EFSC 4400 Q2B7 FERE FEFFE FEFE FREE 
FREE PFFFE FEFE FEFE 
444F 4944 4F42 4153 
EPoG EFSC 0000 4EZ4 FERE EFE FEFPE PREF 
PFFF FEFF FEFF FEPE FERE FrEr 
SO00 0006 DO00 0000 OOV0 OOVB O0OO DOVO 
20 DOD0O GOG0 BOBO ON0O G000 0000 DONO 0000 

GOO DOGO GO00 0000 0000 DO00 ONO dNNH 


TRK EO 
17 90 4000 003E 094 4FS4 4F33 
LiH 40 EESC EEE 


0400 0404 EFFF FERE FFFE FEFF 
BO FFFE FEFF FERE FFFE FERE 
1ODO O0OB N044 4420 204) 
EPSC EFSC OLOO 0421 FFEF 
FFEE FEFF FEFE PEFE FREE 
FO SOS2 4F40 4F47 4943 419 


ceRSLBÁSIC. 2. CMD 


ceuua PISDOILDOBAS 


emccnvalsagmunas 


CM Ano dim 
Cn unmua 
“naun. nn ano mmu 


se PaLOTOS, BASS 


2020 204? 4i53 


FFFF FEFF FEFF 
2020 2043 AD44 
FFFE FFFE FFEF 
PRERCRREE ERR asas aa seo 
3199 3832 2020 PROLOGICA, 1962... 


ea caDD 0 MEM 


vasmasalaanuasna 





Figura 2 — Display do setor 3 da trilha 17, mostrando quatro entradas de diretório ativas (00H, 


30H, 90H e COH), uma entrada que teve o seu arquivo eliminado por KILL (60H) ea mensagem 


do fabricante (FOH), 


fabricante para vender a sua marca (sa- 
bia que com o subcomando MODnn do 
SUPERZAP você pode colocar aqui qual- 
quer mensagem sua?...). É muito impor- 
tante notar, como diferença fundamen- 
tal, que o TRSDOS/DOS 500 zera todos 
Os bytes de uma entrada de diretório cu- 
jo arquivo tenha sido apagado por meio 
de KILL (em vez de zerar apenas o pri- 
meiro byte), o que torna muito difícil 
— mas não impossível — a recuperação 
de arquivos, 


A organização das entradas, a menos 
dos 48 bytes, é muito semelhante à des- 
crita no artigo sobre o NEWDOS que 
mencionamos. Atente bem, ainda na fi- 
gura 2, para o primeiro byte de cada en- 
trada (normalmente 10H para arquivos 
de usuário não-protegidos e não-invisi- 
veis) e para os bytes de 6a 16, que con- 
têm o nome e extensão de cada arquivo, 
detalhes a serem explorados por nosso 
primeiro utilitário. Aconselho, antes de 
prosseguir na leitura, um passeio de ida 
e volta ao longo de toda a trilha 17, uti- 
lizando as teclas ; para avançar e - para 
Tecuar. Note que você sempre poderá sa- 
ber onde está consultando as inforima- 
ções localizadas à esquerda da tela (figu- 
ra 2): DRV/drive, DRS/setor relativo no 
disco, TRK/trilha e TRS/setor relativo 
na trilha, dados em decimal e em hexa- 
decimal. 


Antes de passarmos aos utilitários, 
uma dica: a linha 40 de ambos os progra- 
mas realiza a proteção da memória aci- 
ma de BEEEH = 48878D, onde ficarão 






— Programação em forma de menu — grande pedida para progra- 
madores de todos os níveis. Este artigo mostra a importância das telas 
interativas e algumas técnicas para a sua elaboração. 
— E quem disse que é difícil analisar balanços de empresas? Só se 
for para quem não tem um TRS-B0 e o programa Andlise de Balanços. 
- Para OS usuários do Apple, um sensacional programa — o MILA- 
GROSO — que permite recuperar programas aparentemente perdidos 


após o uso do comando NEW. 


armazenados a sub-rotina de leitura-es- 
crita (BEFOH-BEFCH) e o buffer para 
onde os setores lidos serão transferidos 
(255 bytes a partir de BF00H). Esta é 
uma dica muito importante, pois permi- 
te-nos executar programas que necessi- 
tem de proteção de uma área de memó- 
ria sem que tenhamos que voltar ao 
DOS e chamar novamente o BASIC pa- 
ra responder ao Mem. usada? (as posi- 
ções 16561 e 16562 devem conter, na 
forma LSB-MSB, o endereço a partir do 
qual se deseja proteger a memória, sen- 
do indispensável executar logo após um 
CLEAR n, para que o sistema redefina à 
localização do espaço de armazenagem 
string). 

—.01][[] [1001110100 
UM DIRETÓRIO MAIS PRÁTICO 
mm a e e 

O programa que está na listagem 1 rea- 
liza a listagem em ordem alfabética do 
diretório de um drive especificado, uti- 
lizando a nossa sub-rotina na função de 
leitura. A essência do programa está 
contida nas linhas 200-240: um laço 
controlado pela variável SE percorre os 
setores de 3 a 18 da trilha 17, transferin- 
do-os, um de cada vez, para o buffer (va- 
riável BF$, cujos comprimento e ende- 
reço foram modificados na linha 150. 
colocando-a na área protegida de memó- 
ria); em seguida, um laço controlado pe- 
la variável J percorre as cinço entradas 
de cada setor e, caso se trate de um ar- 
quivo não-protegido e não-invisível (pri- 
meiro byte igual a 10H = 


























16D), trans- » 
tem 





CRT ST CAIN, om e vu 


and 


NI BEE Rys 
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fere seu nome/extensão, localizados en- 
tre o 6º e 169 bytes em cada entrada, 
para um elemento da matriz string PR$, 
a qual, após classificada (CMD “0”, li- 
nha 250), terá seus elementos impressos 


-à razão de 32 por página de vídeo, sob 


controle do operador. 


PARA IDENTIFICAR SEUS DISCOS 





O programa da listagem 2 demonstra 
o uso de nossa sub-rotina para ler um se- 
tor no disco e escrevê-lo de volta. Após 
devidamente modificado, possibilita ao 
usuário alterar os nomes e as datas de 
seus disquetes com vistas, por exemplo, 
a uma melhor catalogação, com a vanta- 
gem adicional de poder colocar a data em 
qualquer formato, tal como 20ABR34, 
ou qualquer outra informação em seu 
lugar, desde que esta data não ultrapas- 
se oito caracteres. 

O programa interroga a quantidade 
de drives existente no sistema, orientan- 


- do automaticamente o disquete a ser 


modificado para o drive 1, se existirem 
dois ou mais drives (linhas 120-140). O 
setor lido agora é somente o setor 1 da 
trilha 17, que contém, entre outras in- 
formações, o nome e a data do disquete 
nos bytes DOH-D7H e D8H-DFH, res- 
pectivamente. A leitura propriamente 
dita e a transferência para 0 buffer são 
feitas na linha 180, e o nome/data do 
disquete são armazenados na string N$ 
(remanejada, na linha 70, para as 16 po- 
sições a partir de BFDOH — portanto, 
nas exatas posições de nome/data do 
bujfer), a qual, se desejado, será modi- 
ficada com os novos nome e/ou data 


que serão armazenados em N$ na linha: 


300. 

O detalhe mais interessante a consi- 
derar é a modificação da sub-rotina para 
que ela possa escrever o setor de volta 
no disco (conforme vimos no início do 
artigo, as duas rotinas do DOS envolvi- 
das são as localizadas em 4675H (lê) e 
4600H (escreve), cujos parâmetros são 
exatamente os mesmos e cujos endere- 
ços diferem apenasno LSB). Examinan- 
do a listagem fonte da sub-rotina, vemos 
que à instrução CALL 4675H corres- 
pondem os códigos-objeto CD 75 46 
(atenção: LSB-MSB!), e que o hexadeci- 
mal 75 corresponde ao 119 byte da sub- 
rotina, ou seja, à posição de memória 
BEFAH, já que a sub-rotina está armaze- 
nada a partir de BEFOH. Em conseguên- 
cia, para que a sub-rotina seja transfor- 
mada em uma de escrita, basta POKEar 
o decimal Q na posição BEFAH, confor- 
me a linha 300, chamar a sub-rotina e 
revertê-la em seguida à condição de lei- 
tura, deixando-a em condições de ser 
utilizada novamente (lembre-se: 117D 
= 75H). 


- B2 


Detalhes sobre a Listagem 1 | 


e Linha 40 — protege memória a partir de BEEEH; 
" e Linha 120 — leitura e armazenamento da sub-rotina; 
é Linha 150 — remanejamento de BF$ para o buffer; 
e Linha 190 — coloca em BEF4H o número do drive; 
e Linhas 200 a 240 — corre os setores de 3 a 18; transfere para o buffer; 
seleciona em cada setor arquivos de usuário; transfere nome/ext para, 
matriz PR$; | x 
é Linha 250 — classifica PR$ em ordem alfabética; 
é Linhas 290 a 350 — lista PR$ com 32 arquivos por página de vídeo; 
“é Linhas 380 à 440 — sub-rotinas para as diversas mensagens ao operador. 


10 "xexHXNXALISTA DIRETORIOS EM ORDEM ALFABETICA Ma 
20) "xexPor Roberto QUITO de Sant'Anna - CP 24099 — RJxxx 
30 PEDESTRE SE DEDO SEDE DEDE DE DEDE IDE DEDE DE DEDE DEDE DEDE DEDO DEDE DEDE DEDE DE E DE DE DEDE DE DEDE DEDO SEDE DO E DE IE 
40 POKE 16561, &HEEZPOKE 16562, &HBE 

st) CLEAR SODOIDEFINT A-ZIDIM PREC9O) BF $="" 

60 Mib=xxmexnena o MOBESTRINOSCL7,7=) 

70 M36="DIRETORIO EM ORDEM ALFABETICA DO DRIVE ==)” 

80 M4$="TECLE (ENTER) PARA NOVA TELA OU <S> PARA SAIR” 
90 M56=7<ENTER) PARA NOVO DIRETORIO OU <5) PARA SAIR” 
100 M68="DIRETORIOS EM ORDEM ALFABETICA” 

440 M7E=STRINGS(63, 4”) 

120 FOR N=-16656 TO -166445READ ASPOKE N, AZNEXT 

130 DATA 17,1,17,14,0,0,33,0,191,205,1417,70,204 

140 DEFUSRO=&HBEFO:K=0:N=VARPTR(BF$S)INiEN+isND=Ni si 

150 POKE N, 255:POKE N£, &HOD:FPOKE N2, AHBF:CLS 

460 GOSUB 420 :PRINTO 530,QUAL O DRIVE (0-3) > 2”; 
170 DR$=INKEY$G:IF DR$=/2” THEN 470 

180 DR=VAL(DRS)2IF DR<O OR DR>3 THEN CLS:GOTO 160 

190 PRINT“ “;DRIPOKE A&HBEF4, DR 

200 FOR SE=2 TO 18:POKE &HBEF4, SE:X=USRO(O) 

240 FOR J=6 TO 290 STEP 48 

220 IF ASC(MIDS(BES,.]-5,1))<)16 GOTO 240 

230 K=kK+isPR$CKI=MIDE(BEE, J,11) 

240 NEXT JENEXT SE |. 

250 CMD “0”,K,PR$(L) 

260 CLSIPRINT MÍS:MISSDRGMIBEIPRINT 

270 PRINT M2$5;/CONTEM” ;5K5“ ARQUIVOS DE USUARIO” ;M2E 

“80 POKE 16916,32CLS! IND=ZINT(K/92)+4 !MSGS=2M4E 

285 IF K/32=5INT(K/92) THEN IND=IND-4 

290 FOR I=í TO ENDIFIM=1X32:COM=F IM-313CLS 

300 TF K<=FIM THEN FIM=SKSNSGS=HSE 

340 PRINTISFOR Ii=COM TO FEMIPRINT PR$CIDDA” "1 3NEXT 
320 IF FIM=K POKE T,612POKE T+í,61:POKE T+2,622G0TO 350 
330 GOSUB 280 JIF Z8<)75” GOTO 350 

340 CLSIMSOS=M5EIPOKE 16916,0:CLS2GOSUB 420 :BOTO 360 
950 NEXT 1 

360 GOSUB 430 1 IF Z8=/8” POKE 16916,0:CLS:END 

370 POKE 14916,0:60T0 50 

380 PRINTS 905,MS0S: T=15408 

390 POKE T,32:POKE Tí, 322:POKE T+2,32 

400 ZS=INKEYS:IF Z6()7” RETURN 

440 POKE T,6i:POKE T+í,612POKE T+2,62:G0TO 390 

420 PRINT M7SZPRINT TABC47);M6GIPRINT M7SERETURN 

A30 PRINTO 905,MS5S:Z6=INKEY$S IF 2627” THEN 430 

RETURN 
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Bem, espero ter mostrado alguns ves- 
tígios da vida inteligente (e como!) que 
existe além do BASIC. Difícil? Talvez, 
mas sempre temos a tendência a consi- 
derar difícil tudo o que não dominamos 
e, de qualquer modo, toda dificuldade 


encontrada será regiamente recompen- 
sada pelos novos recursos de que passa- 
temos a dispor: velocidade, flexibilidade 
e realização pessoal. O que está esperan- 
do? Tal como para a maioria da boas 
coisas da vida, o difícil é começar... 


Z 










Detalhes sobre a Listagem 


9 Linha 40 — protege memória a partir de BEEEH; 

e Linha 50 — leitura e armazenamento da sub-rotina; 

o Linha 70 — remanejamento de N1$ para O buffer; 

e Linha 140 - coloca em BEF4H o número do drive; 

o Linha 180 — leitura do setor e identificação do nome/data atuais; 

* Linhas 210 a 240 — entrada é formatação do novo nome; 

e Linhas 250 a 280 — entrada e formatação da nova data: 

e Linha 300 — redefinição de N1$ e mudança da sub-rotina para escrever; 
e Linha 310 -- escreve o setor e mudança da sub-rotina para ler. 












10 "xxexXMUDA NOME/ZDATA DE DISKETTES TRS DOS/DoS SONO) se 26 36 6 26 
e0 'xx*Por Roberto QUITO de Sant” ânna - CP 240939 -— RyJxmx 
30 RR DD DEI DS DE SE 
40 POKE 16561,RHEEZPOKE isS62, AHBEÉICLEAR 200 

SO FOR Nei 4456 TO -iSS44:READ A!POKE N,ASNEXT 

&0) DEFUSR=8HBEFOENLG=2"2:Nº=VARPTR(NAS) 

70 POKE Ná, 1 6:POKE Ni+i,&HDOSPOKE Ni+ra, &HBE 

80 DATA 17,4,17,1,0,0,33,0,191,205,1147,70,204 

20 MIGRAR MAG TRINGS (6, 23 

100 MI96="MUDA NOME/DATA DISKETTES TRSDOS/DOS 500“ 

1£O CILSZPRINT MLL:MIDIMÍGEPRINT Me bzPOKE 1áPIiL,O 

i20 PRINTA 2R0S,“QUANTOS DRIVES TEM O SEU SISTEMA “a 

130 INPUT DRETE DR=í THEN DR=0 ELSE DR=1 

t40 POKE &HBEF4,DR 

150 CLSSPRINTA 208, COLOQUE O DISKETTE NO DRIVE” sDR 

160 PRINTAO SIL,“ TECLE SCENTER) PARA MUDAR Oly <3> PARA SAIR” 
170 YB=INKEYSSIE vguos THEN í70 ELSE IF yg="5” THEN 320 
180 X=USR (0) ENQB=LEFTECNIS, 8) 3 D2B=RIGHTECNIS, 8) 

190 CLS2PRINTA 205,0 NOME ATUAL E” =ma) “No 

200 PRINTA 333,“A DATA ATUAL E” smm> “Death 

O PRINTA SL “ENTRE NOVO NOME OU CENTER> PARA MANTER +» 
ve) LINE INPUT NESTE Ngue” No=NEBEGOTO PST) 

230 IF LENC(NS)<LS THEN N$=NS+STRINGS(S-LENCÇNH), 4 ado | 

240 TE LENCN$))A THEN NO=LEFTECNH,S) 

eo) PRINTA S40,“ENTRE NOVA DATA OU <ENTER> PARA MANTER paddr 
260 LINE INPUT DESTE Dga”e THEN DE=D2B:GOTO LP9M 

270 LE LENCDR)<B THEN D6=0$+STRINGS (B-LENCDE),” “3 

280 IF LENÇO6)5E THEN D$=LEFTE(DE,B) 

v90 CLS: PRINTS UPA, GRAVANDO CeNBpCCe= e D6 

300 NESNTHDSEMIDE(NÍS,4,16)=N$E2POKE &HBEFA,O 

SÃO X=USR CD) :POKE &HBEFA,LIZ2FOR N=4 TO 1000:NEXT 

320 CLSZPRINTA 843,73 

330) PRINT “<ENTERS PARA NOVO DISKETTE OU <S> PARÁ SATRY 
40 ZERINKEVESIE 26=72 THEN 340 

SãO IF Z6="58” POKE 16916, D:CLSFEND ELSE GOTO 130) 





——.--mm 01.111" 
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Co. já pudemos observar durante o curso, O microprocessador 
£8U tem a capacidade de realizar operações com 16 bits. Nesta lição, va- 
mos conhecer o grupo de aritmética de 16 bits, o qual se refere às ope- 
tações aritméticas que podem ser realizadas com pares de registradores 
(por exemplo, HL). Vamos conhecer estas instruções, 


1 — Adição de registradores de 16 bits 
Formato: ADD HL, ss 


Operação: Efetua uma operação de adição entre o conteúdo do par 
E registradores HL e outro par de registradores de 16 
its. 
Código Objeto: 
ADD HL,ss 
A mp 
0 0ss100%3 
(para o par ss, veja figura 1) 


registradores 


registradores 


registradores 


registradores 





Figura 1 
Exemplo: 


ADD HL,SP 


0011100141 —p39 


+ 


Descrição: O conteúdo do par de registradores ss (qualquer dos pares 
de registradores: BC, DE, HAL ou SP) é somado ao conteúdo 
do par de registradores HL e o resultado é guardado em HL. 
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ADD HL,ss HL=«— HL+ss 


Ciclos de máquina (M) : 3 
States [T): 11(44,3) 


Flags afetadas: S — não afetada; 
Z — não afetada; 
H -— setada se ocorre vai-um do bit 11; senão é ressetada; 
P/V — não afetada; 
N — ressetada; 
€ — setada se ocorre vai-um do bit 15; senão é ressetada. | 


Um exemplo: se o par de registradores HL contém o inteiro 4242H : 
e o par de registradores DE contém 1111H, após a execução de ADD | 
HL, DE, o conteúdo do par de registradores HL será 5353H, 


2 — Adição de registradores de 16 bits com Carry 
Formato: ADC HL, ss 


Operação; Efetua uma operação de adição entre: o conteúdo do | 
par de registradores HL, o outro par de registradores de 
16 bits e o conteúdo da flag Carry. 

Código Objeto: 


ADC 


veja figura 1) 


HL,ss 


(para o par ss, 


Exemplo: 


ADC 


DODONOOO Baco 
0107110101 —p5A 
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HL,BE 


Descrição: O conteúdo do par de registradores ss (qualquer dos pares 
de registradores: BC, DE, HL ou SP) é somado com a Tag 
Carry e com o conteúdo do par de registradores HL; o resul 
tado é guardado no par de registradores HL. 


ADC HL,ss HL=—— HLess+Cy 


Ciclos de máquina (M): 4 
States (TJ: 15(4,4,4,3) 
Flags afetadas: S — setada se o resultado é negativo; senão é ressetada; 
Z — setada se o resultado é Zero; senão é ressetada; 
H — setada se ocorre vai-um do bit 1 1; senão é ressetada; 
P/V — setada se ocorre um overflow: senão é ressetada; 
N — ressetada: 
C — setada se ocorre vai-um do bit 15; senão é ressetada, 
Um exemplo: se o par de registradores BC contém 2222H, o par de 


registradores HL contém 5437H e o Carry está setado; após a execução 
de ADC HL, BC, o conteúdo de HL será 765A H, 


3 — Subtração 
Formato: SBC 
Operação: 


de registradores de 16 bits com Carry 
HL, ss 


Efetua uma operação de subtração entre: o conteúdo do 
par de registradores HL, o outro par de registradores de 
16 bits e o conteúdo da flag Carry. 

Código Objeto: 


SBC Hi,ss 


0155so00o140 


(para o par SS, veja figura 1) 


Exemplo: 


SBC HL,DE 


oo] —»eo 
0101001 0]-—ps5> 


Descrição: O conteúdo do par de egistradores ss (qualquer dos pares 
de registradores: BC, DE, HL ou SP) e a flag Carry são sub- 
traídos do conteúdo do par de registradores HE, e o resul- 
taão é guardado no par de registradores HL. 





SBC HL,ss Le HL-ss-Cy 


Ciclos de máquina (M): 4 


States (T): 15(4,4,4,3) 


Fiags afetadas: S — setada se o resultado é negativo; senão é ressetada; 


Z — setada se o resultado é Zero; senão é ressetada; 
H — setada se ocorre um empréstimo do bit 12; senão é 
Tessetada; 

P/V — setada se ocorre um overflow; senão é ressetada: 
a — setada; 


— setada se ocorre um empréstimo; senão é ressetada. 
Um exemplo: se o conteúdo do par de registradores HL é 9999H, o 
conteúdo do par de registradores DE é HÍIH e a flog Carry está setada; 
após a execução de SBC NL, DE, o conteúdo de HL' será 8887H, 


4 — Adição de registrador indexador com par de registradores 
Formato: ADDI 3X PP ii Edi 


ADDIY,rr 


Operação: Efetua uma operação de Raio entre o conteúdo do re- 
gistrador indexador 1X ou IY) com um par de registra- 
dores de 16 bits. 

Código Objeto: 


ADD IX,pp 


DODOOODO ERAS 
00 rr1001 
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ADD 


IY,rr 





Exemplo: 
ADD IX, BC 
PN DTTIDA] o 
0000100 17]-—»po09 
Descrição: 


O conteúdo do par de registradores 
dos registradores: BC, D + SP ou Xv) é somado ao 
conteúdo do par de registradores IX ou IY,e o resultado 
é guardado no par de registrador indexador. 


ou um (qualquer 
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ADD IX=*-—IX+pp 


IX, pp 


ADD  IY,rr IY«— IY+rr 
Ciclos de máquina (M): 4 
States (TJ: 1.5(4,4,4,3) 
Flags afetadas: S — não afetada; 
Z — não afetada; 
H — setada se ocorre vei-um do bit 11; senão é ressetada; 
P/V — não afetada; é 
N — ressetada; 
C — setada se ocorre vei-um do bit 15; senão é ressetada. 
Um exemplo: se o conteúdo do registrador indexador IY é 333H e o 
conteúdo do par de registradores BC é 555H, após a execução de ADD 
IY, BC, o conteúdo de IY será 888H. 


5 -— Incrementa par de registradores 

Formato: INC ss 

Operação; Incrementa o conteúdo do par de registradores especificado. 
Código Objeto: 


INC ss 


O 0O0ss0O000711 


(para o par ss, veja figura 7) 


Exemplo: 


INC HL 


0010001 17]—p 23 


Descrição: OQ conteúdo do par de registradores ss (qualquer dos pares 
de registradores: BC, DE, HL ou SP) é incrementado. 


INC ss ss«a—ss+1 
Ciclos de máquina (M): 1 
Flags afetados: Nenhuma. 
Um exemplo: se o par de registradores HL contém 1000H, após a 
execução de INC HL, o par de registradores HL conterá 1001H. 


6 — Incrementa registrador indexador 
Formato: INCIX 
INCIY 
Operação: Incrementa o conteúdo do registrador indexador IX ou FY, 
Código Objeto: . 


INC 


RI] 
0010001717) 23 


LY 


IX 


INC 


one] +» 
0010001171 —p23 


Descrição: O conteúdo do registrador IX ou IY é incrementado. 


INC IX IX«— TX+1 


INC IY IV-— TY+1 
Ciclos de máquina ([M): 2 - 

States (TJ: 10(4,6) 

Flags afetadas: Nenhuma, 


86 
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Um exemplo: se o conteúdo do registrador IX é 3300H, após a exe. 
cução de INC IX, o conteúdo do registrador IX será 3301H, q 


7 - Decrementa par de registradores E: pa 
Formato: DEC ss E: 

Operação: Decrementa o conteúdo do par de registradores especificado: 
Código Objeto: E: 

























DEC ss 


(para o par ss, veja figura 1) 





Exemplo: 
DEC HL E 
E 
001010117) 18 E 
Descrição: O conteúdo do par de registradores ss (qualquer dos pa- 


res de registradores: BC, DE, HL ou SP) é decrementado. SR 


DEC 


Ciclos de máquina (M): 1 

States [T): 6 

Flags afetadas: Nenhuma, 
Um exemplo: se o conteúdo do par de registradores HL é 1001H, 

após a execução de DEC HL. o conteúdo de HL será 1000H. 


ss ss s5-1 





8 — Decrementa registrador indexador 
Formato: DECIX 
DEC IY 


Operação :Decrementa o conteúdo do registrador indexador IX ou IY. & 
Código Objeto: E 


DEC IX 


—p DD 


0010101711|-+28B 


DEC IY 


—p FD 


0010101711] 2B 


Descrição: O conteúdo do registrador IX ou IY é' decrementado 


DEC IX 1Xx«— TX-1 


DEC IY IY«— 1Y-1 


Ciclos de máquina (M): 2 
States (T): 10(4,6) 
Flags afetadas: Nenhuma. 
Um exemplo: se o conteúdo do registrador FY é 7649H, após a exe 
cução de DEC IY, o conteúdo do registrador IY será 7648H. É 
Estamos chegando ao fim das instruções do microprocessador Z80,; 
Após completarmos a descrição de todas as instruções disponíveis, serão, 
divulgadas algumas dicas para a elaboração de'programas em Assembler.? 
Daí para frente, o resto é com você. Até a próxima lição. ns 


q 
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Compatível com 
EN programas em fita 
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Ve 
Agora, na hora de escolher entre um Pode ser ligado ao seu"aparelho de TV, da 
microcomputador pessoal simples, de fácil mesma forma que no terminal de vídeo 
manejo e um sofisticado microcomputador de uma grande empresa, 
profissional, você pode ficar com os dois. Com o CP 300 você pode 
Porque chegou o novo CP 300 Prológica. fazer conexões telefônicas 
O novo CP 300 tem preço de from para coleta de dados, 
microcomputador pequeno. Mas memória La à seutilizar = 
de microcomputador grande. SA de uma 


























Ele já nasceu com 04 impressora dmmmnnd Podessurtigado 
E kbytes de memória * e ainda dispor de todos a um televisor comum 
ss Ee QE ] I , a fisticad 
EC 288 interna com OS programas existentes mina de aídeo. 
“G possibilidade de Permite para o CP 500 ou 0 
expansão de memó- mrefamica, TRS-80 americano. E o que é melhor; 
Pode ser ria externa para até você estará apto a operar qualquer 
acoplado a uma quase 1 megabyte. outro sistema de microcomputador. 
impressora. E aedã à 
| E tem um teclado profissional, Nenhum outro microcomputador pessoal 
que dá ao CP 300 uma versatilidade incrível. na sua faixa tem tantas possibilidades de 
Ele pode ser utilizado com programas de expansão ou desempenho igual. 
fita cassete, da mesma maneira que com CP 300 Prológica. 
i s 3 ERV; 
programas em disco. HE [| 4 | Os outros não gsm PROLOGICA 
a . E fazem o que ele faz, BEENER, microcomputadores 
O único na sua faixa que já . pelopreçoque NEN DES 
nasce com 64 kbytes de memória. ele cobra. BM sessions» 
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Miicrodigital apresenta 
o novo TK 2000 color 


Que tal um micro de alta performance, que traz as principais características 
dos equipamentos mais sofisticados e que não exige de você um grande 
investimento inicial? E que tal um micro que cresce de acordo com as suas 

necessidades? São estas as vantagens que vão fazer do novíssimo 
TK 2000 Color um dos maiores sucessos no setor. 

Veja: ele tem 64K de memória RAM e 16K de memória ROM, teclado profissional 
tipo máquina de escrever, recebe diskette e impressora com interface já contido, 
trabalha em cores, oferece alta resolução gráfica e som. 

Peça uma demonstração. Nunca tanto foi lhe oferecido por tão pouco. 
Grande quantidade de software disponível (entre eles: diversos aplicativos nd 

comerciais e jogos a cores de alta resolução gráfica). 


Ele tem tudo que um 
micro deve ter. Menos opreço. 


Filiada à ABICOMP 





* (Preço sujeito à alteração). 
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